With Windows(1).Selection.ShapeRange .Fill.PresetTextured KsoTextureKingsoft .IncrementLeft 70 .IncrementTop -50 .IncrementRotation 32 End With