Is there no wdOrange colorindex variable?

macropod · #4 12-03-2012, 07:55 PM

Another approach, which returns the same colour as Greg's macro, is to define your own wdOrange value:
Dim wdOrange As Long
wdOrange = 41215
Thus:

Code:

Sub ScratchMacro()
Dim oShp As Word.Shape, wdOrange As Long
wdOrange = 41215
Set oShp = ActiveDocument.Shapes.AddShape(1, 50, 30, 50, 50)
oShp.Fill.ForeColor.RGB = wdOrange
End Sub

Do note that this approach doesn't add 'wdOrange' to the built-in color index variables, but at least you have a meaningful name you can work with.

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
Run-time error '91': Object variable or With block variable not set	tinfanide	Excel Programming	2	06-10-2012 10:17 AM
variable Page references	scrinmemphis	Word	4	06-06-2012 11:50 PM
Capture a Font in a Variable	joatmon	Excel Programming	1	05-30-2012 08:23 PM
Help with VBA macro - Variable input	sc30317	Excel Programming	0	08-31-2011 01:00 PM
Variable fields?	Emalee77	PowerPoint	0	01-30-2011 05:58 PM