Excel VBA質問スレ Part13

Excel VBA質問スレ Pa ..

594:デフォルトの名無しさん
09/11/12 00:28:37
シート上に下記のパラメータで長方形のオートシェイプを作りたくて書いたVBAです

Sub 四角形2()

Dim MyShape As Shape
Set MyShape = ActiveSheet.Shapes.AddShape(msoShapeRectangle, 40, 425, 355, 90)

With ActiveSheet.Shapes.Range(MyShape.Name)
.Fill.Visible = msoTrue
.Fill.Solid
.Fill.ForeColor.SchemeColor = 10
.Fill.Transparency = 0.5
End With

End Sub

しかし実際にはWith内で指定したパラメータは常に共通で
位置と大きさのみ違う複数のケースでの長方形を作りたいのです。

With～End WihtをPrivateFunctionに書いて、MyShapeの値を変えて参照させれば良いですか？

あと自分で書いておいてなんですが(MyShape.Name)は何を表すんでしょう？

次ページ

続きを表示

1を表示