Fixer une image ?

[Fredman]

Salut

Savez vous comment fixer une image dans Excel (insertion/image) ?

Merci

 

[job75]

Re : Fixer une image ?

Bonjour Fredman,

Si fixer = créer il y a beaucoup d'exemples sur le forum.

Autrement le scotch est un bon produit.

A+

 

[Fredman]

Re : Fixer une image ?

Par fixer j'attends que l'image ne peut pas etre déplacer..

 

[DoubleZero]

Re : Fixer une image ?

Bonjour, Fredman, job75 , le Forum,

Peut-être ainsi :

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

A bientôt

 

[PMO2]

Re : Fixer une image ?

Bonjour,

Voici une astuce avec un code le plus petit connu (0 instruction).

1) copiez le code suivant dans un module Standard

Sub BidonClic()
'ne fait strictement rien
End Sub

2) faites un clic droit sur votre image/Affecter une macro/sélectionner BidonClic

L'image est fixée car chaque fois que l'utilisateur cliquera dessus la procédure BidonClic interceptera l'action.

 

[Fredman]

Re : Fixer une image ?

Merci DoubleZero et PMO2

@DoubleZero ou dois-je mettre le code ?

 

[DoubleZero]

Re : Fixer une image ?

Bonjour, Fredman, job75 , PMO2, le Forum,

...ou dois-je mettre le code ?

Dans un module standard, comme dans le fichier joint.

@ PMO2 ,

Un fans club, ici.

A bientôt

 

[job75]

Re : Fixer une image ?

Bonjour Fredman, PMO2, chère ânesse,

Pour ceux qui comme moi n'aiment pas sélectionner :

Sub FixerObjets()
Dim s As Shape
For Each s In ActiveSheet.Shapes
s.Placement = 3
Next

A+

 

[Fredman]

Re : Fixer une image ?

@DoubleZero dans votre classeur excel j'arrive a déplacer les images ??
@job75 votre code aussi ne permet pas de rendre une image fixe..

 

[DoubleZero]

Re : Fixer une image ?

Re-bonjour,

@DoubleZero dans votre classeur excel j'arrive a déplacer les images ??...

Effectivement, les images peuvent être déplacées.

Le code empêche de redimensionner les images, en cas d'insertion de ligne(s) et (ou) colonne(s), sans bloquer leur position.

Je ne sais comment procéder.

A bientôt

 

[Fredman]

Re : Fixer une image ?

Ok merci

 

[job75]

Re : Fixer une image ?

Re,

Tout dépend de ce que l'on appelle "fixer" : par rapport à quoi et quand on fait quoi ??

Il existera toujours une possibilité de déplacer des objets, heureusement d'ailleurs

A+

 

[PMO2]

Re : Fixer une image ?

19h28 Fredman
Re : Fixer une image ?

Par fixer j'attends que l'image ne peut pas etre déplacer..

@ Fredman

Commencez par lire et tester tous les messages de ce fil (voir le message #5).

 

[Si...]

Re : Fixer une image ?

salut

Bonjour,
L'image est fixée car chaque fois que l'utilisateur cliquera dessus la procédure BidonClic interceptera l'action.

On pourra la déplacer à partir un clic droit dessus.

A tester :
dans un module standard (en premier : on mémorise la position de chaque Shape)

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

dans la page de code de la feuille (on reprend la position)

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

On peut mémoriser autrement pour ne pas avoir de trace sur la feuille et éviter les changements intempestifs.
Ce sera encore plus simple avec une seule image.

 

[Fredman]

Re : Fixer une image ?

@PMO2 oui j'ai essayé de l'affecter a une macro ça fonctionne niquel mais j'ai près de 10 photos donc cela va faire 10 macros dans le vide..