|
▼うくれれ さん:
おはようございます。
Countプロパティで図があるかないかチェックしましょうか!!
Sub testtest()
Dim 設定 As ShapeRange
With ActiveSheet
If .DrawingObjects.Count > 0 Then
Set 設定 = ActiveSheet.DrawingObjects.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
End With
End Sub
Selectionを使わないで書き直してみましたが、
Selectionを使用しても基本的には同じです。
|
|