B
Bryce
Am trying to find out how to change the text of a shape with Excel 2007. So
far have:
ActiveSheet.Shapes(Application.Caller).OLEFormat.Object.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.BackColor.RGB = RGB(255,
153, 0)
ActiveSheet.Shapes(Application.Caller).Fill.ForeColor.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
far have:
ActiveSheet.Shapes(Application.Caller).OLEFormat.Object.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.BackColor.RGB = RGB(255,
153, 0)
ActiveSheet.Shapes(Application.Caller).Fill.ForeColor.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