Sub PictureSize()
    Const iSize& = 3
    Dim s$, shpOld As Shape
    Static arOld(1 To 2)
    With ActiveSheet
        s = Application.Caller
        Set shpOld = .Shapes(s)
        If IsEmpty(arOld(1)) Then
            arOld(1) = shpOld.Height
            arOld(2) = shpOld.Width
            shpOld.Height = shpOld.Height * iSize
            shpOld.Width = shpOld.Width * iSize
        Else
            arOld(1) = Empty
            arOld(2) = Empty
            shpOld.Height = shpOld.Height / iSize
            shpOld.Width = shpOld.Width / iSize
        End If
    End With
End Sub