エクセルVBAでShapesまたはDrawingObjects

Helpからの抜粋です　よ～～く読んで理解してください。 メモ シートのすべての図形に対して同時にプロパティの削除や設定などを実行する場合は、すべての図形を選択し、ShapeRange プロパティでシートのすべての図形を含む ShapeRange コレクションを作成して、そのコレクションに適切なプロパティまたはメソッドを設定します。 単体の Shape オブジェクトを取得するには、Shapes(index) プロパティを使用します。引数 index には、図形の名前またはインデックス番号を指定します。次の使用例は、myDocument の図形 1 に既定の塗りつぶしのグラデーションを設定します。 Set myDocument = Worksheets(1) myDocument.Shapes(1).Fill.PresetGradient _ msoGradientHorizontal, 1, msoGradientBrass Shapes コレクションのサブセットを表す ShapeRange コレクションを取得するには、Shapes.Range(index) プロパティを使用します。引数 index には、図形の名前またはインデックス番号、あるいは複数の図形名またはインデックス番号の配列を指定します。次の使用例は、myDocument の図形 1 および図形 3 に塗りつぶしのパターンを設定します。 Set myDocument = Worksheets(1) myDocument.Shapes.Range(Array(1, 3)).Fill.Patterned _ msoPatternHorizontalBrick 解説 ワークシートの ActiveX コントロールは、2 つの名前を持ちます。シートを表示したときに名前ボックスで確認できる図形の名前、およびプロパティ ウィンドウの Name プロパティでコントロールのコード名を確認できます。最初にワークシートに追加したコントロールでは、図形の名前とコード名が一致しています。しかし、図形の名前、コード名のどちらかを変更しても、もう片方の名前が一致するように自動的に変更されることはありません。 コントロールのイベント プロシージャの場合は、コントロールのコード名を使います。Shapes または OLEObjects コレクションからコントロールを取得する場合は、コード名ではなく、図形の名前を使ってコントロールを指定します。たとえば、コード名および図形の名前が既定の CheckBox1 というチェック ボックスを追加したと仮定します。コントロールの [プロパティ] ウィンドウで Name プロパティを chkFinished と設定してコード名を変更した場合、イベント プロシージャでは必ずコントロールのコード名を使い、Shapes または OLEObject コレクションからコントロールを取得する場合、次のように CheckBox1 を使います。 Private Sub chkFinished_Click() ActiveSheet.OLEObjects("CheckBox1").Object.Value = 1 End Sub

VBE画面のオブジェクトブラウザで見てもらうと分かりますがShapesクラスにはVisibleプロパティはありません。Shapeクラスにはあります。 ですからtest04ではエラーになりtest05は動作します DrawingObjectsは互換機能で残されているオブジェクトだったと思います。OFFICE2003だと「非表示の項目も表示する」にしないとオブジェクトブラウザにもでてきません。 DrawingObjectsクラスにはVisibleプロパティがあるから、test06は動作すると考えられます。なお以下は同じことです。 　ActiveSheet.DrawingObjects.Select 　ActiveSheet.Shapes.SelectAll

小生、分かっていない部分もありますが、少なくとも Hiddenされた、Shapeをセレクトはできないと思います。 コレクションは、基本的に番号、或いは名称で決めてやらなければいけないと思います。 このルーチンは、トグルスイッチみたいな動きをすればよいと考え 下記のスクリプトを作り、きちんと動くことを確認しました。 Sub test08() With ActiveSheet.Shapes(1) .Visible = Not .Visible End With End Sub これであれば、このルーチンを実行する度、shape(1)は、 表示されたり、非表示となったりします。

こんにちわ Shapes.Visible 自体がおかしいからだと思います。 ActiveSheet.Shapes("Line 1").Visible などになると思います。 Sub test07() ActiveSheet.Shapes.SelectAll With Selection If .Visible = False Then .Visible = True Else .Visible = False End If End With End Sub とか

オートシェイプは、作成順に番号がつけられます。 　シート上にオートシェイプが、1つしかなくても　最初の番号が付与されているとは、限らないのです。 test04の場合は、一つしか　指定していないので、番号が合わずに　Errとなるのでしょう。　たまたま　番号が、合ったとしても　別の場面で　Errになります。 このことは、マクロの記録⇒オートシェイプを選択⇒記録の終了　 トレース結果(オートシェイプの番号を確認する)で確認出来ます。 test05などは、オートシェイプの数(名前)を検索していますので、Errが出ないのです。 似たようなものに、画像がありますが　これも取り込まれたときに名前が、付与されますのでオートシェイプと同じ処理が、必要になります。