Clear Appearance Colors on Quick Access Bar

[harvey3ELEA]

Anyone have an ilogic code or method to add the 5 "Clear" (yellow, blue, green, clear, and light) appearance colors directly to the quick access bar as individual buttons, or in a pull-down menu?

[bradeneuropeArthur]

This code can be spit up in pieces and added to the ribbon and the to the quick acces toolbar. See also movie!

Dim a As Inventor.PartDocument = ThisDoc.Document
Dim b As Inventor.PartComponentDefinition = a.ComponentDefinition
'yellow, blue, green, clear, and light
MsgBox(a.ActiveAppearance.Name)
Dim s As Asset 
s = a.Assets.Item("Clear - Yellow")
s.CopyTo("Favorites")
a.ActiveAppearance =s
MsgBox ("Yellow")
s = a.Assets.Item("Clear - Blue")
s.CopyTo("Favorites")
a.ActiveAppearance = s
MsgBox ("Blue")
s = a.Assets.Item("Clear - Green 1")
s.CopyTo("Favorites")
a.ActiveAppearance = s
MsgBox ("Green")
s = a.Assets.Item("Clear")
s.CopyTo("Favorites")
a.ActiveAppearance = s
MsgBox ("Clear")
s = a.Assets.Item("Clear - Light")
s.CopyTo("Favorites")
a.ActiveAppearance =s
MsgBox ("Light")