|
おはようございます。
こんな方法を取ると出来そうですが・・・、
Sub sample()
Dim gshp As Shape
With ActiveSheet.Shapes
.AddShape(msoShapeIsoscelesTriangle, _
10, 10, 100, 100).Name = "shpOne"
.AddShape(msoShapeIsoscelesTriangle, _
150, 10, 100, 100).Name = "shpTwo"
.AddShape(msoShapeIsoscelesTriangle, _
300, 10, 100, 100).Name = "shpThree"
Set gshp = .Range(Array("shpOne", "shpTwo", "shpThree")).Group
DoEvents
End With
MsgBox "グループ化 完了"
gshp.GroupItems(1).Select
SendKeys "ichinose"
DoEvents
ActiveCell.Select
End Sub
>Step1ではGroupを解除して単独図形にして、テキスト取得します。
>Step3では更新したい図形は単独ですから
> Selection.Text="更新したい文字列"
>が実行できます。その後Groupの分解の逆を辿って元のGroup編成を再現します。
グループ解除を行えば、選択しなくても文字列の更新は出来ると思いますよ!!
でも、手法としては、↑これのほうがよさそうですけどね!!
コードは、参考程度にみてください
|
|