Sub Test() Dim d11 As Double, d12 As Double, d21 As Double, d22 As Double Dim tx As Double, ty As Double, s As Shape For Each s In ActivePage.Shapes s.GetMatrix d11, d12, d21, d22, tx, ty s.SetMatrix d11 * 2, d12, d21 * 2, d22, tx, ty Next sEnd Sub