Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


40679 / 76732 ←次へ | 前へ→

【41145】Re:グループ化されたオートシェイプのテキスト変更
発言  ichinose  - 06/7/31(月) 20:14 -

引用なし
パスワード
   こんばんは。

>いい方法が無いようです。
>
>とりあえず「グループ解除」→「テキスト変更」→「再グループ化」で
>何とかやり過ごそうかと思います。

↑これが無難だとおもいますよ!!(私もたぶんこうすると思います)


参考程度に見てください。

新規ブックの標準モジュールに

'=================================================================
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で確認)


あくまでも参考程度にみてください。
 
1 hits

【41130】グループ化されたオートシェイプのテキスト変更 sen 06/7/31(月) 16:42 質問
【41131】Re:グループ化されたオートシェイプのテキ... ぱっせんじゃー 06/7/31(月) 16:53 発言
【41132】Re:グループ化されたオートシェイプのテキ... Blue 06/7/31(月) 16:56 発言
【41141】Re:グループ化されたオートシェイプのテキ... sen 06/7/31(月) 18:50 お礼
【41145】Re:グループ化されたオートシェイプのテキ... ichinose 06/7/31(月) 20:14 発言
【41147】Re:グループ化されたオートシェイプのテキ... ichinose 06/7/31(月) 20:40 発言

40679 / 76732 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free