|
マクロ記録かどこだかわかんないけど、なんかバグっぽい?
提示されたコードをまんま使用。
>If CheckBox1 = True Then
> ActiveSheet.Shapes.AddShape(msoShapeOval, 105#, 75.75, 32.25, 12#).Select
> Selection.ShapeRange.Fill.Visible = msoFalse ←これを
> Selection.ShapeRange.Fill.Solid '←これより下の行に(どこでもいい)移動。
> Selection.ShapeRange.Fill.Transparency = 0#
> Selection.ShapeRange.Line.Weight = 0.75
> Selection.ShapeRange.Line.DashStyle = msoLineSolid
> Selection.ShapeRange.Line.Style = msoLineSingle
> Selection.ShapeRange.Line.Transparency = 0#
> Selection.ShapeRange.Line.Visible = msoTrue
> Selection.ShapeRange.Line.ForeColor.SchemeColor = 64
> Selection.ShapeRange.Line.BackColor.RGB = RGB(255, 255, 255)
>End If
>.printout
>Selection.Delete
|
|