Forcer une image
vieuxray
-
vieuxray -
vieuxray -
Bonjour a tous, forum bonjour,
Sur mon Excel 2007 j'ai insérer une image en arrière plan
j'ai insérer diverses formes de "l'onglet formes" que j'ai disposer sur l'image de fond
Mais un truc super embêtant c'est que lorsque je déplace avec la souris des formes pour y mettre de la couleur ou tous autres modifications.
-il arrive très souvent que a la place de déplacer la forme choisi, c'est l'image de fond qui bouge.
-je souhaiterai svp un petit code VBA avec deux boutons.
-un bouton pour forcer l'image a ce placer en A1 et y rester même si je déplace des formes.
-un deuxième bouton pour débloquer l'image de fond en cas de besoin de vouloir la déplacée
Merci de votre aide et bonne après midi a vous
Cdlt Ray
Sur mon Excel 2007 j'ai insérer une image en arrière plan
j'ai insérer diverses formes de "l'onglet formes" que j'ai disposer sur l'image de fond
Mais un truc super embêtant c'est que lorsque je déplace avec la souris des formes pour y mettre de la couleur ou tous autres modifications.
-il arrive très souvent que a la place de déplacer la forme choisi, c'est l'image de fond qui bouge.
-je souhaiterai svp un petit code VBA avec deux boutons.
-un bouton pour forcer l'image a ce placer en A1 et y rester même si je déplace des formes.
-un deuxième bouton pour débloquer l'image de fond en cas de besoin de vouloir la déplacée
Merci de votre aide et bonne après midi a vous
Cdlt Ray
Configuration: Windows / Internet Explorer 11.0
9 réponses
-
-
Salut cs_Le Pivert
Merci pour ta réponse,
J'ai entrer le code suivant mais ca ne place pas l'image au bonne endroit
l'image est placée en A4
je n'arrive pas a la mettre en A1 comprends pas pourquoi ???
Merci pour ton aide
bonne fin d'après midi a toi
Cdlt Ray
Sub Positionnement()
ActiveSheet.Shapes("Image 1").Top = [A1].Top 'adapter nom image
ActiveSheet.Shapes("Image 1").Left = [A1].Left
End Sub
Private Sub CommandButton1_Click()
Positionnement
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
End Sub
Private Sub CommandButton2_Click()
ActiveSheet.Unprotect
End Sub -
Salut cs_ Le_Pivert
J'ai déplacer l'image en vert au milieu de mon écran, puis j'ai lancer la macro et
ca me colle l'image verte la ou tu vois sur la photo, et non en A1 comme souhaiter.
Merci pour ton aide, bonne journée a toi.
Cdlt Ray
Lien vers photo
https://www.cjoint.com/c/LBzjMig33bG -
Ce n'est pas avec l'image que l'on va résoudre le problème!
Sans le classeur c'est difficile de répondre!
-
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question -
Salut cs_Le_Pivert
Merci pour ta réponse,
j'ai remis le fichier a l'original
code pour déplacer l'image dans le module 1
Lien pour le fichier
Merci pour ton aide vu l'heure bon app
Cdlt Ray
https://www.cjoint.com/c/LBzlEA1GF1G -
Il faut faire pivoter ton image vers la droite d'un quart de tour de façon a avoir la poignée en haut de l'image
https://support.microsoft.com/fr-fr/office/faire-pivoter-une-image-ou-une-forme-1a47bea9-473d-4ef7-aa2a-3697991558d4
Voilà
-
Salut cs_Le Pivert
Merci pour ta réponse,
Bon évidement il fallait y penser, du coup coup ca fonctionne bien.
Mais pourquoi ca fonctionne dans un sens et pas dans l'autre
Car mon dessin est prévu dans l'autre sens
Si tu a une idée sur le sujet ???
Bon W-end a toi
Cdlt ray -
Il faut t'arranger a faire le dessin avec la poignée en haut
-
