|
さっそくありがとうございます。
以下のとおりやってみましたが、4行目のIF文で「変数が定義されていません。」
となってしまいます。
なにかおかしいところがあるのでしょうか。
DIM 丸設定 As ShapeRange
Worksheets("AAA").Activate
ActiveSheet.Shapes.SelectAll '---全ての図形を選択
If DrawingObjects.Count > 0 Then
Set 丸設定 = Selection.ShapeRange '---選択図形範囲を変数に格納
With 丸設定
.Fill.Visible = msoFalse
.Fill.Solid
.Fill.Transparency = 1#
.Line.Weight = 1#
.Line.DashStyle = msoLineSolid
.Line.Style = msoLineSingle
.Line.Transparency = 0#
.Line.Visible = msoTrue
.Line.ForeColor.SchemeColor = 64
.Line.BackColor.RGB = RGB(255, 255, 255)
End With
End If
|
|