Forcer une image

Fermé

vieuxray - 24 févr. 2022 à 16:23
vieuxray - 25 févr. 2022 à 19:07

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

Configuration: Windows / Internet Explorer 11.0

A voir également:

9 réponses

Réponse 1 / 9

cs_Le Pivert Messages postés 7903 Date d'inscription jeudi 13 septembre 2007 Statut Contributeur Dernière intervention 11 mars 2024 728
24 févr. 2022 à 17:01

Bonjour,

voir ceci:

https://forums.commentcamarche.net/forum/affich-37356824-bloquer-une-image#3

Réponse 2 / 9

vieuxray
24 févr. 2022 à 17:55

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

Réponse 3 / 9

vieuxray
25 févr. 2022 à 10:43

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

Réponse 4 / 9

cs_Le Pivert Messages postés 7903 Date d'inscription jeudi 13 septembre 2007 Statut Contributeur Dernière intervention 11 mars 2024 728
25 févr. 2022 à 11:15

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

Réponse 5 / 9

vieuxray
25 févr. 2022 à 12:33

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

Réponse 6 / 9

cs_Le Pivert Messages postés 7903 Date d'inscription jeudi 13 septembre 2007 Statut Contributeur Dernière intervention 11 mars 2024 728
Modifié le 25 févr. 2022 à 13:37

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à

Réponse 7 / 9

vieuxray
25 févr. 2022 à 15:48

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

Réponse 8 / 9

cs_Le Pivert Messages postés 7903 Date d'inscription jeudi 13 septembre 2007 Statut Contributeur Dernière intervention 11 mars 2024 728
25 févr. 2022 à 18:33

Il faut t'arranger a faire le dessin avec la poignée en haut

Réponse 9 / 9

vieuxray
25 févr. 2022 à 19:07

Re

Ok me doutait de ta réponse.
Merci pour ton aide, bon W-end a toi
Cdlt Ray

Discussions similaires

Retrouver l'image originale après avoir fait des modifications ?

Discussions similaires

Newsletters