Insérer une image dans plusieurs formes à la fois

DoubleZero

XLDnaute Barbatruc

• 9 Octobre 2017

• #2

Bonjour, Florian699, le Forum,

Comme ceci ?

Code:

Option Explicit
Sub Image_modifier()
    Dim s As Shape
    For Each s In ActiveSheet.Shapes
        If s.Type = 1 Then
            With s
                ' emplacement adapter
                .Fill.UserPicture "C:\Users\DoubleZero\Downloads\Cerises.jpg"
            End With
        End If
    Next
End Sub

A bientôt 🙂

 

Vote positif 0 Vote négatif

F

Florian699

XLDnaute Nouveau

• 9 Octobre 2017

• #3

Merci pour ta réponse mais cela ne fonctionne pas dans ma feuille
il n'y a rien qui se passe et la forme a toujours la même image quand je change mon image sur le dd

 

Vote positif 0 Vote négatif

DoubleZero

XLDnaute Barbatruc

• 9 Octobre 2017

• #4

Re-bonjour,

Florian699 à dit:

...cela ne fonctionne pas dans ma feuille
il n'y a rien qui se passe et la forme a toujours la même image quand je change mon image sur le dd

Cliquez pour agrandir...

😵

L'emplacement de l'image a-t-il été modifié ?

Le code est-il placé dans un module standard ?

Avec la macro (non événementielle), voici ce que j'obtiens :

​

A bientôt 🙂​

 

Vote positif 0 Vote négatif

F

Florian699

XLDnaute Nouveau

• 9 Octobre 2017

• #5

oups !!!
cela fonctionne très bien (j'avais oublié de mettre le code sur la feuille).

Par contre un élément que j'ai oublié de précisé : j'ai d'autres formes avec d'autres images et je ne veux pas que ces images là soient changées. Comment peut-on préciser qu'uniquement certaines formes doivent être changées et pas d'autres ?

merci pour ton aide

 

Vote positif 0 Vote négatif

DoubleZero

XLDnaute Barbatruc

• 9 Octobre 2017

• #6

Re-bonjour,

Je pense qu'il est temps de joindre un fichier exemple.

A bientôt 🙂

 

Vote positif 0 Vote négatif

F

Florian699

XLDnaute Nouveau

• 9 Octobre 2017

• #7

voici un fichier d'exemple :
j'ai 3 langues et 3 formes par langue.
Uniquement les formes de la langue 1 doivent être modifiées.
Mais je peux aussi choisir les formes de la langue 2 uniquement etc ...

 

Pièces jointes

• Classeur TEST DRAPEAU.xlsx

  30.4 KB · Affichages: 32

Vote positif 0 Vote négatif

F

Florian699

XLDnaute Nouveau

• 9 Octobre 2017

• #8

toujours là ?

 

Vote positif 0 Vote négatif

F

Florian699

XLDnaute Nouveau

• 11 Octobre 2017

• #9

Bonjour,

je reviens vers toi pour voir si tu peux m'aider ou pas ?

Merci encore

 

Vote positif 0 Vote négatif

DoubleZero

XLDnaute Barbatruc

• 11 Octobre 2017

• #10

Bonjour, Florian699, le Forum,

Une suggestion en pièce jointe.

A bientôt 🙂

 

Pièces jointes

• 00 - Florian699 - Images modifier.xlsm

  74.2 KB · Affichages: 46

Vote positif 0 Vote négatif

F

Florian699

XLDnaute Nouveau

• 13 Octobre 2017

• #11

Bonjour et merci
je regarde et je teste et je reviens vers toi

bonne journée

 

Vote positif 0 Vote négatif

phlaurent55

Nous a quittés en 2020

Repose en paix

• 13 Octobre 2017

• #12

Bonjour Florian, doubleOO

voir fichier joint sans macro
les images ne sont pas stockées sur le disque dur mais dans le classeur
il suffit de faire le choix dans la liste déroulante (cellule jaune)

à+
Philippe

 

Pièces jointes

• 111.xlsx

  265.2 KB · Affichages: 43

Vote positif 0 Vote négatif

DoubleZero

XLDnaute Barbatruc

• 14 Octobre 2017

• #13

Bonjour à toutes et à tous,

Philippe 🙂,

Grâce à ton fichier, j'ai pris conscience de la vilaine c😱uleur de mon sourire !

Depuis ce soir, cette brosse à dents trône dans mon enclos :

​

Il ne me reste plus qu'à trouver le dentifrice idoine...

A bientôt 😀😀

 

Vote positif 0 Vote négatif

F

Florian699

XLDnaute Nouveau

• 16 Octobre 2017

• #14

Bonjour Philippe,

cela marche très bien et je te remercie beaucoup.
Le problème est que je ne comprends pas bien ton code et je n'arrive pas à le reproduire sur une autre feuille.

 

Vote positif 0 Vote négatif

phlaurent55

Nous a quittés en 2020

Repose en paix

• 16 Octobre 2017

• #15

Re,

Florian699 à dit:

Le problème est que je ne comprends pas bien ton code ......................

Cliquez pour agrandir...

Je suis certain que personne ici sur ce forum n'arrivera à comprendre le code
.................. puisqu'il n'y a pas de code

Il s'agit tout simplement d'un décalage de zone nommée en fonction du choix fait dans les listes de validation (en jaune)

à+
Philippe

 

Vote positif 0 Vote négatif