EffectLens.PaletteRotation

Property PaletteRotation As Long

The PaletteRotation property returns or set the palette rotation for a Heat map lens.

The following code example creates a heat map lens with a palette rotation of 50%. (In this example, the palette rotation value can be specified directly in the CreateLens method as its second parameter. The current approach is used for illustration only).

Sub Test() 
 Dim s1 As Shape, s2 As Shape 
 Set s1 = ActiveLayer.CreateRectangle(0, 0, 5, 5) 
 s1.Fill.ApplyFountainFill 
 Set s2 = ActiveLayer.CreateEllipse(1, 1, 6, 6) 
 With s2.CreateLens(cdrLensHeatMap).Lens 
  .PaletteRotation = 50 
 End With 
End Sub