I
Ian Mangelsdorf
I have a piece of VBA to produce a set of blacked out boxes with white text.
These boxes are then "dragged into Photoshop as labels for a series of
photos. All appears to work well until I get into Pshop where there is a
white border around the box ( which to me is a pain in the $##).
This is the code im using Am I missing something simple or is it a problem
with Adobe?
ActiveSheet.Shapes.AddShape(msoShapeRectangle, Left_sq, Top_sq, 120,
120).Select
Selection.ShapeRange.Fill.Visible = msoTrue
Selection.ShapeRange.Fill.Solid
Selection.ShapeRange.Fill.ForeColor.SchemeColor = 8
election.ShapeRange.Line.Weight = 0.75
Selection.ShapeRange.Line.DashStyle = msoLineSolid
Selection.ShapeRange.Line.Style = msoLineSingle
Selection.ShapeRange.Line.Transparency = 0#
Selection.ShapeRange.Line.Visible = msoFalse
Cheers
Ian
These boxes are then "dragged into Photoshop as labels for a series of
photos. All appears to work well until I get into Pshop where there is a
white border around the box ( which to me is a pain in the $##).
This is the code im using Am I missing something simple or is it a problem
with Adobe?
ActiveSheet.Shapes.AddShape(msoShapeRectangle, Left_sq, Top_sq, 120,
120).Select
Selection.ShapeRange.Fill.Visible = msoTrue
Selection.ShapeRange.Fill.Solid
Selection.ShapeRange.Fill.ForeColor.SchemeColor = 8
election.ShapeRange.Line.Weight = 0.75
Selection.ShapeRange.Line.DashStyle = msoLineSolid
Selection.ShapeRange.Line.Style = msoLineSingle
Selection.ShapeRange.Line.Transparency = 0#
Selection.ShapeRange.Line.Visible = msoFalse
Cheers
Ian