図形 Selectionが省略できない VBA

質問

「タイトル」という名の図形はシート上に存在するのですが、

Sub a()
ActiveSheet.Shapes.Range(Array("タイトル")).ShapeRange.Height = 110
End Sub

Sub b()
ActiveSheet.Shapes.Range(Array("タイトル")).Select
Selection.ShapeRange.Height = 110
End Sub

aだとエラーになりますが、
bだと正常に動きます。

SelectやSelectionは省略できるものだと思ってるのですが
なぜaだとエラーになるのでしょうか？

一度図形をアクティブにする動作が必要なのですか？

回答No.2

MarcoRossiItaly · ベストアンサー

補足のみ。ベストアンサーは辞退します。

Shapes、DrawingObjects は共に図形や図のコレクションのことですが、サポートされているプロパティやメソッドに違いがあります。

1 行のコード
activesheet.shapes.delete　　'エラー
activesheet.shapes(1).delete　　'成功
activesheet.drawingobjects.delete　　'成功
activesheet.drawingobjects(1).delete　　'成功
activesheet.shapes(1).rotation = 10　　'成功
activesheet.drawingobjects(1).rotation = 10　　'エラー

2 行のコード
activesheet.shapes.selectall
selection.delete　　　　　　　'成功

使えるプロパティ、メソッドの一覧は、次の各ページを参照してください。VBE のヘルプでは、DrawingObjects が載っていないかもしれません。

Shapes メンバ
http://msdn.microsoft.com/ja-jp/library/microsoft.office.interop.excel.shapes_members(v=office.11).aspx
Shape メンバ
http://msdn.microsoft.com/ja-jp/library/microsoft.office.interop.excel.shape_members(v=office.11).aspx
DrawingObjects メンバ
http://msdn.microsoft.com/ja-jp/library/microsoft.office.interop.excel.drawingobjects_members(v=office.11).aspx

Shape オブジェクトは、Shape.DrawingObject プロパティにより、DrawingObject オブジェクト（と呼び得るオブジェクト）に変換できます。また、（DrawingObject ではなく）DrawingObjects オブジェクトは、DrawingObjects.ShapeRange プロパティにより、ShapeRange オブジェクトに変換できます。

お礼

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

回答No.1

keithin

ａについて
.shapes.range(…)
がshaperangeを返します。shaperangeの下にshaperangeは付く事ができないので、エラーです。

直接の手直しとしては
activesheet.shapes.range(array("タイトル")).height = 110
またはこの構文を使うなら、
activesheet.shapes.range(array("タイトル","別の図形")).height = 110
といった使い方です。

通常はもっと単純に
activesheet.shapes("タイトル").height = 110
とします。

ｂについて
selectionはその状態ではdrawingobjectsを返します。
drawingobjectsの下でshaperangeは定義されているため、正常に作動します。

お礼

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