Want to protect your cyber security and still get fast solutions? Ask a secure question today.Go Premium

x
?
Solved

Excel 2007 ShapeStyle presets

Posted on 2014-02-27
2
Medium Priority
?
639 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 54

Accepted Solution

by:
Rgonzo1971 earned 2000 total points
ID: 39894100
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
ID: 39894267
Hey thanks Rgonzo. That works for me :)
0

Featured Post

NFR key for Veeam Backup for Microsoft Office 365

Veeam is happy to provide a free NFR license (for 1 year, up to 10 users). This license allows for the non‑production use of Veeam Backup for Microsoft Office 365 in your home lab without any feature limitations.

Question has a verified solution.

If you are experiencing a similar issue, please ask a related question

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.
How to get Spreadsheet Compare 2016 working with the 64 bit version of Office 2016
This video walks the viewer through the process of creating an MLA formatted document, as well as a bibliography with citations.
An overview on how to enroll an hourly employee into the employee database and how to give them access into the clock in terminal.

581 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