- Excel VBA 質問スレ Part37 [転載禁止]©2ch.net
760 ：デフォルトの名無しさん[]：2016/04/12(火) 14:00:20.14 ID:Juix7VHF - >>759
ありがとうございます。
さすがくわしいかたのようですね。
そういうことはどうやってお調べしましたか？
あとSelectを使わずにこの種のShapeの文字列を自由自在にコードから操る方法ってあるでしょうか？
| - Excel VBA 質問スレ Part37 [転載禁止]©2ch.net
762 ：デフォルトの名無しさん[]：2016/04/12(火) 14:52:47.07 ID:Juix7VHF - >>761
すばらしい！
ありがとうございます。
しかしそのコードはどうやって発見しました？
それを言っていただけないと単にすごいことができるぞという自慢だけで
後輩は育たないと思うんですよ。
| - Excel VBA 質問スレ Part37 [転載禁止]©2ch.net
764 ：デフォルトの名無しさん[]：2016/04/12(火) 14:57:40.62 ID:Juix7VHF - と言いながら自分も発見しました。
ActiveSheet.Shapes.AddShape(msoShapeOval, 100, 100, 100, 100).TextFrame2.TextRange.Text = "しっこ"
でも同様な効果が得られるみたい。
| - Excel VBA 質問スレ Part37 [転載禁止]©2ch.net
765 ：デフォルトの名無しさん[]：2016/04/12(火) 14:59:58.93 ID:Juix7VHF - さて、ここで問題です。
Sub test()
Dim s As Shape
Set s = ActiveSheet.Shapes.AddShape(msoShapeOval, 100, 100, 100, 100)
s.TextFrame.Characters.Text = "うんこ"
s.TextFrame2.TextRange.Text = "しっこ"
End Sub
のサンプルコードをF8のステップイン実行で実行させてやるとどうなるでしょうか？
| - Excel VBA 質問スレ Part37 [転載禁止]©2ch.net
766 ：デフォルトの名無しさん[]：2016/04/12(火) 15:04:55.97 ID:Juix7VHF - ちなみにこれも大丈夫だぞ
ActiveSheet.Shapes.AddShape(msoShapeOval, 100, 100, 100, 100).TextEffect.Text = "まんこ"
|
|