|
▼Jaka さん:
貴重なご意見ありがとうございました。
Lindyさんの方法でうまくいきました。
Jakaさんの方法も試してみたいと思います。
本当にありがとうございました。
多分、バグだと思います。
>マクロ記録かどこだかわかんないけど、なんかバグっぽい?
>提示されたコードをまんま使用。
>
>>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
|
|