Excel VBA質問箱 IV

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

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


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

23797 / 76738

←次へ　｜　前へ→


	【58301】Re:グループ内図形のText更新

ichinose - 08/10/17(金) 8:44 -


	引用なし

	パスワード

おはようございます。
こんな方法を取ると出来そうですが・・・、

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編成を再現します。
グループ解除を行えば、選択しなくても文字列の更新は出来ると思いますよ！！

でも、手法としては、↑これのほうがよさそうですけどね！！

コードは、参考程度にみてください

0 hits

▼

【58276】グループ内図形のText更新 電気鯰 08/10/15(水) 23:16