cancel
Showing results for 
Search instead for 
Did you mean: 
cancel
Showing results for 
Search instead for 
Did you mean: 

IsoDraw macro change_text_color

SOLVED
Highlighted
Newbie

IsoDraw macro change_text_color

please can some one help.

I need to select text and change the character fill to

rbg 255

rbg 116

rbg 66

I have started with........but the color bit confuses me

macro Change_Text_Color

Select if Type is equal to "Text"

Define el as Element
el = activeDoc.firstSelectedElement
while (Exists (el) = true )

el.fill.colSpec.rgb.green = 255
el.fill.colSpec.rgb.green = 116
el.fill.colSpec.rgb.blue = 66

el = el.nextSelectedElement
end while

end macro

1 ACCEPTED SOLUTION

Accepted Solutions
Highlighted

Re: IsoDraw macro change_text_color

See if this works for you

Macro Text Color


Define i as Integer
Define tCount as Integer
Define el as Element

Select if Type is equal to 'text'

tCount = activeDoc.selectedElements

el = activeDoc.firstSelectedElement

define Mycolor as ColorSpec

Mycolor.type = "rgbValues"
Mycolor.rgb.red = 255
Mycolor.rgb.green = 116
Mycolor.rgb.blue = 66


for i = 1 to tCount

el.fill = Mycolor

el = el.nextSelectedElement

End for

Select none

End Macro

View solution in original post

2 REPLIES 2
Highlighted

Re: IsoDraw macro change_text_color

See if this works for you

Macro Text Color


Define i as Integer
Define tCount as Integer
Define el as Element

Select if Type is equal to 'text'

tCount = activeDoc.selectedElements

el = activeDoc.firstSelectedElement

define Mycolor as ColorSpec

Mycolor.type = "rgbValues"
Mycolor.rgb.red = 255
Mycolor.rgb.green = 116
Mycolor.rgb.blue = 66


for i = 1 to tCount

el.fill = Mycolor

el = el.nextSelectedElement

End for

Select none

End Macro

View solution in original post

Highlighted

Re: IsoDraw macro change_text_color

Many thanks

really saved me >a lot< of time

regards

Announcements