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

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

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

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

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

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

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

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

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

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

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

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

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