No worries about your English. This should give you a starting place. Sub ConvertEachShapetoBitmap() Dim sr As ShapeRange Dim s As Shape Set sr = ActiveSelectionRange For Each s In sr.Shapes s.ConvertToBitmapEx cdrRGBColorImage, False , True , 300, cdrNormalAntiAliasing Next s End Sub Hope it helps, -Shelby
↧