Sub Test() Dim s As Shape Set s = ActiveLayer.CreateRectangle(0, 0, 2, 2) s.Fill.ApplyTextureFill "Patches 5C" Set s = s.ConvertToBitmapEx(cdrRGBColorImage) MsgBox "The resulting bitmap is " & s.Bitmap.SizeWidth & "x" & _ s.Bitmap.SizeHeight & " pixels"End Sub