Sub Image()
Dim test As Boolean, im As Shape
With ActiveSheet.DrawingObjects("Bouton")
test = .Text = "Grande"
.Text = IIf(test, "Petite", "Grande")
End With
Set im = ActiveSheet.Shapes("Mon_Image")
If test Then
With ThisWorkbook.Names
.Add "X", im.Left 'mémorise la dernière position
.Add "Y", im.Top
.Add "W", im.Width 'mémorise les dernières dimensions
.Add "H", im.Height
End With
End If
Application.DisplayFullScreen = test
With im
.Left = IIf(test, 0, [X])
.Top = IIf(test, 0, [Y])
.Width = IIf(test, Application.Width, [W])
.Height = IIf(test, Application.Height, [H])
End With
End Sub