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)は何を表すんでしょう？