Solved

Excel 2007 ShapeStyle presets

Posted on 2014-02-27
2
590 Views
Last Modified: 2014-02-28
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!
0
Comment
Question by:hindersaliva
2 Comments
 
LVL 48

Accepted Solution

by:
Rgonzo1971 earned 500 total points
Comment Utility
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
0
 

Author Comment

by:hindersaliva
Comment Utility
Hey thanks Rgonzo. That works for me :)
0

Featured Post

6 Surprising Benefits of Threat Intelligence

All sorts of threat intelligence is available on the web. Intelligence you can learn from, and use to anticipate and prepare for future attacks.

Join & Write a Comment

With the internet and the ease of information transference, many professional jobs can be done anywhere today.  Why should it make a difference whether an x-ray is read in India or the United States as long as the radiologist is qualified?   Outso…
Whether you've completed a degree in computer sciences or you're a self-taught programmer, writing your first lines of code in the real world is always a challenge. Here are some of the most common pitfalls for new programmers.
This video teaches the viewer how to align pictures around text while keeping the text properly aligned in the document.
The viewer will learn how to make their project stand out over others by learning how to change colors and shapes, add spaces, change directions, and add bullets to their charts.

771 members asked questions and received personalized solutions in the past 7 days.

Join the community of 500,000 technology professionals and ask your questions.

Join & Ask a Question

Need Help in Real-Time?

Connect with top rated Experts

15 Experts available now in Live!

Get 1:1 Help Now