|
オートシェイプで描画した円の中を透明にして印刷したいのですが、
透明になりません。どうしたら良いのか教えていただけないでしょうか。
ちなみに、以下の通りVBを組んでます。
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
|
|