オブジェクト名が同じ図形の変更

Question

アクティブセル値と同じオブジェクト名のテキストボックスが複数有ります。そのテキストボックスの大きさやテキスト（アクティブセル値と同じ）の内容に書き換えたいと思っています。

サイズとテキスト書き込みのステートメントをFor Eachで括りました。
途中にMsgboxを入れて確認するとボックスの数だけ繰り返しているのは間違いないのですが、変更できるのは1個だけです。
最初に作った（？）テキストボックスのみを何度も書き換えているのかな？と思っているのですが、複数個の変更をするにはどの様にしたらいいのでしょうか。
宜しくお願い致します。

Sub test()
A = ActiveCell.Formula
  For Each shp In ActiveSheet.Shapes
  If shp.Name = A Then

    ActiveSheet.Shapes(A).Select
    Selection.ShapeRange.Height = 19.5
    Selection.ShapeRange.Width = 19.5
  With ActiveSheet.Shapes(A).TextFrame
    .Characters.Text = A
  End With
  With Selection.Font
        .Size = 7
  End With

    End If
    Next shp
End Sub

fumufumu_2006 · Accepted Answer

For Each shp In ActiveSheet.Shapes
で全シェープを１個づつチェックしているのに、途中で
ActiveSheet.Shapes(A).Select
とか
With ActiveSheet.Shapes(A).TextFrame
としているために、変数Aに格納されている名前のシェープの「最初のシェープ」を選んで、そのシェープに対して各種設定しているためだと思います。

で、以下みたいでどうでしょうか？
Sub test1()
Dim A As String
Dim shp As Shape
A = ActiveCell.Formula
For Each shp In ActiveSheet.Shapes
  If shp.Name = A Then
    shp.Select
    Selection.Height = 19.5
    Selection.Width = 19.5
    Selection.Text = A
    Selection.Font.Size = 7
  End If
Next shp
End Sub

または
Sub test2()
Dim A As String
Dim shp As Shape
A = ActiveCell.Formula
For Each shp In ActiveSheet.Shapes
  If shp.Name = A Then
    shp.Height = 19.5
    shp.Width = 19.5
    shp.TextFrame.Characters.Text = A
    shp.TextFrame.Characters.Font.Size = 7
  End If
Next shp

imogasi · Answer

疑問点
（１）A = ActiveCell.Formula
はA = ActiveCell.Valueでは
（２）Shapesを探すのに繰り返しているが、Aのほかに繰り返さなくて良いのかな。Aが複数あるという全提でこうなるのか。
（３）アクティブセル値と同じオブジェクト名のテキストボックスが複数有ります
テキストボックスには「オブジェクト名」しかないと思うがどういうこと。
ーーー
私の場合、オートシェイプの横書きテキストボックスを１つ張り付け。
その名前がText Box 3であるので
Ａ１にText Box 3　を入れてアクチブにして下記を実行。
Sub test03()
Dim shp As Object
A = ActiveCell.Value
For Each shp In Worksheets("Sheet1").Shapes
If shp.Name = A Then
MsgBox shp.Name
ActiveSheet.Shapes(A).Select
Selection.ShapeRange.Height = 19.5
Selection.ShapeRange.Width = 40
ActiveSheet.Shapes(A).TextFrame.Characters.Text = "SSA"
ActiveSheet.Shapes(A).TextFrame.Characters.Font.Size = 17
End If
Next
End Sub
で１つのシェイプのテキストボックスに対し、文字の設置と、フォントの設定、ボックスのサイズ設定はうまく行った。
参考に。
ただし、＞そのテキストボックスの大きさやテキスト（アクティブセル値と同じ）の内容に書き換えたいと思っています。
が、小生の浅学か、出来てない。

okormazd · Answer

1.
 Text Boxの名前はいつ、どこで、どういう風に決めているのですか。オブジェクト名が同じText Boxなんてありません。全部名前が違うはずです。
2.
はじめにAをActiveCellからとっていて、For文実行中、Aは変わらないからいつも同じだ。
3.
If文で名前がAだったらといっているので、何回繰り返そうと、Aは同じだから、なまえがAのText Boxがあったとしたら、それしか変更されない。
4.
つぎのようにすれば、全部変更するが、特定の名前のText Boxだけ変更したいなら、If文のAが変わっていくようにしなければだめだ。

Sub test()
A = ActiveCell.Formula
For Each shp In ActiveSheet.Shapes

MsgBox shp.Name

'If shp.Name = A Then

'ActiveSheet.Shapes(A).Select
shp.Select
Selection.ShapeRange.Height = 19.5
Selection.ShapeRange.Width = 19.5
'With ActiveSheet.Shapes(A).TextFrame
With shp.TextFrame
.Characters.Text = A
End With
With Selection.Font
.Size = 7
End With

'End If
Next shp
End Sub

オブジェクト名が同じ図形の変更

For Each shp In ActiveSheet.Shapes

疑問点

1.

似たような質問が見つかりました

関連するカテゴリからQ&Aを探す

デイリーランキングこのカテゴリの人気デイリーQ&Aランキング

マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング