|
こんばんは。
>いい方法が無いようです。
>
>とりあえず「グループ解除」→「テキスト変更」→「再グループ化」で
>何とかやり過ごそうかと思います。
↑これが無難だとおもいますよ!!(私もたぶんこうすると思います)
参考程度に見てください。
新規ブックの標準モジュールに
'=================================================================
Sub 図の作成()
Dim nm1 As String
Dim nm2 As String
Dim shp As Shape
With ActiveSheet
With .Shapes.AddShape(msoShape4pointStar, 100, 200, 300, 300)
.Select
.TextFrame.Characters.Text = "港のヨウコ"
nm1 = .Name
End With
With .Shapes.AddShape(msoShape4pointStar, 400, 200, 300, 300)
.Select
nm2 = .Name
End With
Set shp = .Shapes.Range(Array(nm1, nm2)).Group
shp.Select
End With
End Sub
'========================================================================
Sub 書き込み()
Dim shp As Shape
Set shp = Selection.ShapeRange(1)
shp.Select
shp.GroupItems(1).Select
txt = shp.GroupItems(1).TextFrame.Characters.Text
SendKeys txt & "・横浜・横須賀"
DoEvents
shp.Select
shp.GroupItems(2).Select
SendKeys "あんたあの子のなんなのさ!!"
DoEvents
shp.Select
End Sub
図の作成 を実行してください。ふたつの十字星がグループ化されて
選択されています。
選択して状態で 書き込み を実行してみてください。
テキストの書き込みが出来ています(Excel2002で確認)
あくまでも参考程度にみてください。
|
|