| Name | Type | Description |
|---|---|---|
| Options | Specifies a set of options to apply. |
Sub Test() Dim s As Shape Dim Pal As StructPaletteOptions Set Pal = CreateStructPaletteOptions With Pal .DitherType = cdrDitherNone .NumColors = 256 .Smoothing = 5 .PaletteType = cdrPaletteOptimized End With For Each s In ActivePage.Shapes If s.Type = cdrBitmapShape Then If s.Bitmap.Mode <> cdrPalettedImage Then s.Bitmap.ConvertToPaletted2 Pal End If End If Next s End Sub