Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
Format Shape Using ThemeColors
I can format shapes with RGB
ActiveSheet.Shapes("Test").Fill.ForeColor.RGB = RGB(128, 128, 128) Is there a way to format a shape using themecolors in the same way you can format a cell With Range("A1").Interior ..ThemeColor = xlThemeColorAccent3 ..TintAndShade = 0.799981688894314 End With I have tried every variation of the code & syntax to no avail - could someone give me an example of the code to do this please - thankyou in anticipation |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
Format Shape Using ThemeColors
Does not the objects in a theme have to be defined, such as frame, title
window, menu bar, etc. It would seem to me that to set a theme for shapes, you would have to define what shapes belong to the theme and have some pre-determined method of defining whether the interior fills or the lines adapt a color, etc. I do not believe that excel has a facility for just using a theme to color an abstract group of shapes. "Roger" wrote in message ... I can format shapes with RGB ActiveSheet.Shapes("Test").Fill.ForeColor.RGB = RGB(128, 128, 128) Is there a way to format a shape using themecolors in the same way you can format a cell With Range("A1").Interior .ThemeColor = xlThemeColorAccent3 .TintAndShade = 0.799981688894314 End With I have tried every variation of the code & syntax to no avail - could someone give me an example of the code to do this please - thankyou in anticipation |
#3
Posted to microsoft.public.excel.programming
|
|||
|
|||
Format Shape Using ThemeColors
Dim shp As Shape
Set shp = ActiveSheet.Shapes("Test") shp.Fill.ForeColor.ObjectThemeColor = msoThemeColorAccent3 shp.Fill.ForeColor.TintAndShade = 0.799981688894314 ' and for the border, or shp.Line.ForeColor.ObjectThemeColor = msoThemeColorAccent3 Regards, Peter T "Roger" wrote in message ... I can format shapes with RGB ActiveSheet.Shapes("Test").Fill.ForeColor.RGB = RGB(128, 128, 128) Is there a way to format a shape using themecolors in the same way you can format a cell With Range("A1").Interior .ThemeColor = xlThemeColorAccent3 .TintAndShade = 0.799981688894314 End With I have tried every variation of the code & syntax to no avail - could someone give me an example of the code to do this please - thankyou in anticipation |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
How to set default shape format for a text box | Excel Discussion (Misc queries) | |||
Format Shape With ThemeColors | Excel Discussion (Misc queries) | |||
Format Shape, will not move accordingly, when deleting columns | Excel Discussion (Misc queries) | |||
can I use conditional format on an auto shape | Excel Discussion (Misc queries) | |||
Using the built-in dialog to format a shape | Excel Programming |