Excel 2007 ShapeStyle presets

hindersaliva
hindersaliva used Ask the Experts™
on
I have a shape which starts off as

oBlock1.ShapeStyle = msoShapeStylePreset23

I want to programmatically make that have a Thick Black Border, but without altering the Fill Style of light blue.

When I do that with
oBlock1.ShapeStyle = msoShapeStylePreset1
The Fill Style changes to White :(

How can I only alter the Border?

Thanks experts!
Comment
Watch Question

Do more with

Expert Office
EXPERT OFFICE® is a registered trademark of EXPERTS EXCHANGE®
Top Expert 2016
Commented:
Hi,

Since the Stylepresets are pre-set

pls try

    oBlock1.ShapeStyle = msoShapeStylePreset23
    oBlock1.Line.Weight = 3
    oBlock1.Line.ForeColor.RGB = vbBlack

Open in new window

Regards

Author

Commented:
Hey thanks Rgonzo. That works for me :)

Do more with

Expert Office
Submit tech questions to Ask the Experts™ at any time to receive solutions, advice, and new ideas from leading industry professionals.

Start 7-Day Free Trial