Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
Change Shape text / Color
Am trying to find out how to change the text of a shape with Excel 2007. So
far have: ActiveSheet.Shapes(Application.Caller).OLEFormat.O bject.Text = "CIP" which works, but was expecting just shapes().text or .caption, neither of which work. Is there a shorter form way of changing the text? Also, with a linear gradient for the colour(color) of the shape, can set the fore and back colours, but not sure how to set the Main colour: ActiveSheet.Shapes(Application.Caller).Fill.BackCo lor.RGB = RGB(255, 153, 0) ActiveSheet.Shapes(Application.Caller).Fill.ForeCo lor.RGB = RGB(255, 0, 0) Probably getting confused with gradient stops etc. Is there a way to call the preset styles under the "Format" drop-down for shape styles, such as "Intense Effect - Accent 3" Did figure out how to make it "Glow" though: With Sheets("Input").Shapes("Oval 35") .Glow.Radius = 20 'set radius = 0 to turn off (default), max radius is 20 .Glow.Color.RGB = RGB(255, 153, 0) End With |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
Change Shape text / Color
Sub fixtext()
ActiveSheet.Shapes(Application.Caller).Select Selection.Characters.Text = "Hello World" End Sub -- Gary''s Student - gsnu201001 |
#3
Posted to microsoft.public.excel.programming
|
|||
|
|||
Change Shape text / Color
Excel 2007
Sub NoSelect() With ActiveSheet.Shapes(1).TextEffect ..Text = "Hello World" ..FontBold = True ..FontName = "Ariel" End With End Sub |
#4
Posted to microsoft.public.excel.programming
|
|||
|
|||
Change Shape text / Color
Thanks heaps to both of you, works well
Any thoughts on preset styles or gradient colours? |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
send color filled shape behind text | Excel Discussion (Misc queries) | |||
Change text in rectangle shape | Excel Programming | |||
Change text in rectangle shape | Excel Programming | |||
Change color of Shape based on condition - Macro? | Excel Programming | |||
Change Shape Text | Excel Worksheet Functions |