Excel VBA質問箱 IV

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

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


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

45259 / 76732

←次へ　｜　前へ→


	【36474】図形に文字を入れたい

プルート - 06/3/31(金) 23:14 -


	引用なし

	パスワード

図形を描いて文字を入れたいのですが、どのようなコードにすればいいでしょうか？
自動記録をしたら、
ActiveSheet.Shapes.AddShape(msoShapeRectangle, 206.25, 107.25, 195#, 90.75).Select
Selection.Characters.Text = "aaaaa"

となりました、図形にマクロ登録をしたいので以下のように描きました。
Set shaPoint = ActiveSheet.Shapes.AddShape(msoShapeRectangle, _
　　　　　　　　　　Cells(18, "Q").Left, Cells(18, "Q").Top, _
　　　　　　　　　　Cells(18, "Q").Width * 2, Cells(18, "Q").Height * 2)
With shaPoint
　　.Characters.Text = "aaaaa"
　　.OnAction = "InputPoint"
End With

自動記録で図形を書いた後、Selectしていますが、図形がSelectionになるわけですよね？
何が間違っているのか教えてください。

0 hits

▼

【36474】図形に文字を入れたい プルート 06/3/31(金) 23:14

≪