Insérer une image dans plusieurs formes à la fois

Florian699 · 9 Octobre 2017

Bonjour à tous,

voilà mon problème actuellement :
j'ai une feuille ou à plusieurs endroits j'ai mis une forme différente avec une image dedans (via remplissage / remplissage avec une image ou texture).
J'ai donc au total une centaine de form dans une feuille avec la même image (qui est sur mon disque dur).

Le soucis est que bien souvent je mais une autre image avec le même nom de fichier, je dois passer sur la centaine de forme pour modifier l'image afin de la réactualiser et permettre l'affichage de la nouvelle image.

Ce que j'aimerai c'est que quand je change l'image sur mon disque dur (je garde le même nom d'image), l'image dans ma centaine de formes s'actualise toute seule pour avoir la nouvelle image.

Si quelqu'un peut m'aider, je le remercie d'avance

DoubleZero · 9 Octobre 2017

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

Florian699 · 9 Octobre 2017

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

DoubleZero · 9 Octobre 2017

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

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

Florian699 · 9 Octobre 2017

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

DoubleZero · 9 Octobre 2017

Re-bonjour,

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

A bientôt

Florian699 · 9 Octobre 2017

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 ...

Florian699 · 9 Octobre 2017

toujours là ?

Florian699 · 11 Octobre 2017

Bonjour,

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

Merci encore

DoubleZero · 11 Octobre 2017

Bonjour, Florian699, le Forum,

Une suggestion en pièce jointe.

A bientôt

Florian699 · 13 Octobre 2017

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

bonne journée

phlaurent55 · 13 Octobre 2017

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

DoubleZero · 14 Octobre 2017

Bonjour à toutes et à tous,

Philippe ,

Grâce à ton fichier, j'ai pris conscience de la vilaine culeur 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

Florian699 · 16 Octobre 2017

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.

phlaurent55 · 16 Octobre 2017

Re,

Florian699 à dit:
Le problème est que je ne comprends pas bien ton code ......................

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

Insérer une image dans plusieurs formes à la fois

Florian699

XLDnaute Nouveau

DoubleZero

XLDnaute Barbatruc

Florian699

XLDnaute Nouveau

DoubleZero

XLDnaute Barbatruc

Florian699

XLDnaute Nouveau

DoubleZero

XLDnaute Barbatruc

Florian699

XLDnaute Nouveau

Pièces jointes

Florian699

XLDnaute Nouveau

Florian699

XLDnaute Nouveau

DoubleZero

XLDnaute Barbatruc

Pièces jointes

Florian699

XLDnaute Nouveau

phlaurent55

Nous a quittés en 2020

Pièces jointes

DoubleZero

XLDnaute Barbatruc

Florian699

XLDnaute Nouveau

phlaurent55

Nous a quittés en 2020

Discussions similaires