How to: OLEObjects WITHOUT a border/frame ?

[Richard]

Help: I create an object using:
myPictArea = ActiveSheet.OLEObjects.Add(ClassType:="Forms.Image.1"
etc...

HOW can I have NO discernable border on that created Area?? Each time I
load up an image in that object, I get a Border around it.

I tried giving it the xlLineStyleNone (see below) to no avail - there
is still a BLACK border appearing around the object. Is there a way to
have no border/frame, so it is not visible at all ? (

With myPictArea
.Placement = xlMoveAndSize
.Object.BackColor = RGB(255, 255, 255) ' White background
.Border.LineStyle = xlLineStyleNone
End With

Thanks for your help!

R

 

[Michel Pierron]

Hi Richard,

With myPictArea
.Placement = xlMoveAndSize
.Object.BackColor = RGB(255, 255, 255) ' White background
.Object.BorderStyle = 0
End With

Regards,
MP

 

[Richard]

That did it !! THANKS !!

Richard

Hi Richard,

With myPictArea
.Placement = xlMoveAndSize
.Object.BackColor = RGB(255, 255, 255) ' White background
.Object.BorderStyle = 0
End With

Regards,
MP