Afbeelding kopeieren naar andere bladen

[laforge2]

Hallo,

Ik heb een Excel sheet met daarin verschillende bladen.
Op blad 1 heb ik een afbeelding.
Die afbeelding kan per toernooi wijzigen (handmatig).
Hoe kan ik er nu voor zorgen dat op de andere bladen de afbeelding automatisch mee veranderd zonder ze handmatig te moeten kopieren.
Het mag overigens via een formule of met VBA (formule heeft de voorkeur).

Ik heb een voorbeeld toegevoegd van een bestand.
Alvast bedankt.

Gr
Peter

 

[snb]

Het is niet duidelijk.
Plaats een bestand.

 

[laforge2]

Voorbeeld toegevoegd.

 

[corania17]

Afbeelding kopieren

Misschien kun je hier iets mee:

Sub foto()
'
' foto Macro
'
' Sneltoets: Ctrl+f
'
ActiveSheet.Shapes.Range(Array("Picture 1")).Select
Selection.Copy
Sheets("Blad2").Select
ActiveSheet.Paste
Sheets("Blad3").Select
ActiveSheet.Paste
Sheets("Blad1").Select
End Sub

 

[laforge2]

Dat zou kunnen werken, maar ...
Als ik de afbeelding verander heet het waarschijnlijk geen picture1 meer.

Of is het zo als ik picture1 verwijder de nieuwe dan ook weer picture1 als naam krijg?

 

[JEC.]

Deze achter je thisworkbook module

Private Sub Workbook_SheetActivate(ByVal Sh As Object)
 If Sh.Index > 1 Then
   Sh.Shapes(1).Delete
   Sheets(1).Shapes(1).Copy
   Sh.Range("A1").PasteSpecial
 End If
End Sub

 

[laforge2]

@Jveer, heb je hier wat uitleg bij.
Ogenschijnlijk gebeurt er niets.

Gr
Peter

 

[JEC.]

Ook niet in je voorbeeldbestand?
Zet de code achter de ThisWorkbook module

 

[laforge2]

@coronia17, geprobeerd, werkt idd.
Behalve dus als ik een ander afbeelding plakt, die krijgt dan een volgende nummer.
Als ik die handmatig wijzig naar 1 dan werkt je macro weer.

Gr
Peter

 

[laforge2]

@jVeer, nee, echt niet.
Als ik een andere afbeeldlng plaatst dan gebeurt er ook niets.
Zie de bijlage

 

[corania17]

Afbeelding kopieren

Beste Laforge2

Als je met de rechter muisknop op de afbeelding drukt (Afbeelding wijzigen) kun je een andere afbeelding kiezen terwijl de naam hetzelfde blijft.

Groeten

 

[laforge2]

@coronia17 en @JVeer

Hartelijk bedankt beide.
Beide oplossingen werken.
Bij de script van JVeer even een on error resum next toegevogd omdat ik een foutmelding kreeg (subscript out of range).
Nu loopt het als een zonnetje.

Bedankt Beide

Mijn probleem is hierbij opgelost.