Excel VBA質問箱 IV

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

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


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

7848 / 13644 ﾂﾘｰ

←次へ　｜　前へ→

▼

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

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

【36481】Re:図形に文字を入れたい プルート 06/4/1(土) 13:08


	【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になるわけですよね？
何が間違っているのか教えてください。


	【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

確認してみて下さい。


	【36481】Re:図形に文字を入れたい

プルート - 06/4/1(土) 13:08 -


	引用なし

	パスワード

ichinose様ありがとうございます

結果として思ったとおりのことができました。

見た目では図形のShapeオブジェクトがSelectionだと思ってました。

Rectangleオブジェクトだとは考えもしませんでした。
Rectangleオブジェクトがなんなのかも分からなかったのでMSDNで以下の調べたら以下のものがHITしました。
http://www.microsoft.com/JAPAN/developer/library/vbaac10/acobjrectangle.htm
図形の四角形を描いたときのShapeオブジェクトとRectangleオブジェクトの違いがさっぱり理解できません。
これからいろいろ試してみます。

でも、TextFrameオブジェクトをMSDNで調べたのですが、マクロ自動記録なんかよりMSDNのほうがよっぽど親切なコードになってますね。

ありがとうございました。


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

7848 / 13644 ﾂﾘｰ

←次へ　｜　前へ→

ページ：

┃

記事番号：

(SS)C-BOARD v3.8 is Free