- 594 名前：デフォルトの名無しさん mailto:sage [2009/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)は何を表すんでしょう？
|
 |
