Forcer une image

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

Configuration: Windows / Internet Explorer 11.0

9 réponses

  1. vieuxray
    Re

    Ok me doutait de ta réponse.
    Merci pour ton aide, bon W-end a toi
    Cdlt Ray
    1. cs_Le Pivert Contributeur
      Il faut t'arranger a faire le dessin avec la poignée en haut
      1. vieuxray
        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
        3. vieuxray
          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
          1. cs_Le Pivert Contributeur
            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!
            1. vieuxray
              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
              1. vieuxray
                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

                Discussions similaires

                Retrouver l'image originale d'une photo modifiée
                Raven

                10 réponses
                Forcer le changement de cartouche canon maxify mb2150
                jfkamj

                19 réponses