[ExcelVBA] オートシェイプの値を読み書き

>Blog Top Page >[ExcelVBA] Top Page >[ExcelVBA] ExcelVBA ALL >[ExcelVBA] AdventCalendar

アドベントカレンダー 6日目

オートシェイプのテキスト名を取得/変更したい

マクロの記録を使うと以下のようなコードを返してくる。

view plainprint?

1. (いろいろ 略)  
2.     ActiveSheet.Shapes("オートシェイプ名").Select  
3.     Selection.Characters.Text = "aabb"  
4. (いろいろ 略)  

(いろいろ 略)
    ActiveSheet.Shapes("オートシェイプ名").Select
    Selection.Characters.Text = "aabb"
(いろいろ 略)

つまり、Characters.Textとすると値がRead/Writeできるわけです。
ところが、いちいちSelectしてから操作するのはいまいちなので
Selectを省略してみると、さっそくエラーとなります。

view plainprint?

1. ActiveSheet.Shapes("オートシェイプ名").Characters.Text = "aabb"  

ActiveSheet.Shapes("オートシェイプ名").Characters.Text = "aabb"

Characters.Textは、アクティブなオートシェイプに対してしか、
テキストのRead/Writeはできないようです。

そのため、Characters.Textではなく
TextFrame.Characters.TextであればSelectしておく必要がなくなります。

view plainprint?

1. ActiveSheet.Shapes("オートシェイプ名").TextFrame.Characters.Text  

ActiveSheet.Shapes("オートシェイプ名").TextFrame.Characters.Text

>Blog Top Page >[ExcelVBA] Top Page >[ExcelVBA] ExcelVBA ALL >[ExcelVBA] AdventCalendar

Thisworkbook.ActiveSheet.Shapes("オートシェイプ名").TextFrame.Characters.Text