Sub Test() Dim s As Shape For Each s In ActivePage.Shapes If s.Type = cdrBitmapShape Then If s.Bitmap.Mode <> cdrRGBColorImage Then s.Bitmap.ConvertTo cdrRGBColorImage End If End If Next sEnd Sub