Excel VBA質問箱 IV

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

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


45254 / 76732 ←次へ | 前へ→

【36479】Re:図形に文字を入れたい
発言  ichinose  - 06/4/1(土) 7:58 -

引用なし
パスワード
   ▼プルート さん:
おはようございます。


これ、疑問に思いますよねえ!!

>図形を描いて文字を入れたいのですが、どのようなコードにすればいいでしょうか?
>自動記録をしたら、

>ActiveSheet.Shapes.AddShape(msoShapeRectangle, 206.25, 107.25, 195#, 90.75).Select
Msgbox typename(selection)
>Selection.Characters.Text = "aaaaa"

私は、上記のように確認して納得しました。
「Rectangle」と表示されますよね?

つまり、Selectionプロパティで取得されるのは見た目はShapeオブジェクトですが、
非表示オブジェクトのRectangleとして取得されます。
Rectangleは、Charactersオブジェクトが取得出来ますから
上記のコードで作動しますが・・・。


>
>となりました、図形にマクロ登録をしたいので以下のように描きました。
>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 'Shapeオブジェクトを取得しています

>  .Characters.Text = "aaaaa"
'↑Shapeオブジェクトは直接.Charactersを取得出来ません
   .TextFrame.Characters.Text = "aaaaa"
'↑としてみて下さい。Textframeオブジェクトを通して指定します。
>  .OnAction = "InputPoint"
>End With


確認してみて下さい。
1 hits

【36474】図形に文字を入れたい プルート 06/3/31(金) 23:14 質問
【36479】Re:図形に文字を入れたい ichinose 06/4/1(土) 7:58 発言
【36481】Re:図形に文字を入れたい プルート 06/4/1(土) 13:08 お礼

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