Option Explicit
Sub Image_dessin_emplacement_scotcher() 'scotch double face... Gros merci, Hasco !
ActiveSheet.Shapes.SelectAll
On Error Resume Next
With Selection
.Placement = xlFreeFloating
End With
End Sub
Sub BidonClic()
'ne fait strictement rien
End Sub
...ou dois-je mettre le code ?
Sub FixerObjets()
Dim s As Shape
For Each s In ActiveSheet.Shapes
s.Placement = 3
Next
@DoubleZero dans votre classeur excel j'arrive a déplacer les images ??...
@ Fredman19h28 Fredman
Re : Fixer une image ?
Par fixer j'attends que l'image ne peut pas etre déplacer..
Bonjour,
L'image est fixée car chaque fois que l'utilisateur cliquera dessus la procédure BidonClic interceptera l'action.
Public s As Shape, n As Long
Sub FixerObjets()
For Each s In ActiveSheet.Shapes
n = n + 1
Cells(n, 1) = s.Top
Cells(n, 2) = s.Left
Next
End Sub
Private Sub Worksheet_SelectionChange(ByVal r As Range)
For Each s In ActiveSheet.Shapes
n = n + 1
s.Top = Cells(n, 1)
s.Left = Cells(n, 2)
Next
End Sub