Sub Test() Dim s As Shape Dim ex As ExportFilter For Each s In ActivePage.Shapes If s.Type = cdrBitmapShape Then Set ex = s.Bitmap.SaveAs("c:\" & s.StaticID & ".bmp", cdrBMP, _ cdrCompressionRLE_LW) ex.Finish End If Next sEnd Sub