• Privacywetgeving
    Het is bij Helpmij.nl niet toegestaan om persoonsgegevens in een voorbeeld te plaatsen. Alle voorbeelden die persoonsgegevens bevatten zullen zonder opgaaf van reden verwijderd worden. In de vraag zal specifiek vermeld moeten worden dat het om fictieve namen gaat.

Plaatjes kopiëren m.b.v. VBA

Status
Niet open voor verdere reacties.
Haije

Haije

Terugkerende gebruiker
Lid geworden
24 mrt 2009
Berichten
4.314
Besturingssysteem
Windows 11
Office versie
Office 2016 Professional Plus en Office 2010 Home & Student
Hallo allemaal,

ik ben op zoek naar een manier om in een bestand een plaatje te kopiëren vanaf een verborgen tabblad.
Tot nu is het me niet gelukt zonder het betreffende tabblad zichtbaar te maken en te selecteren.

In de bijlage wat mij tot nu toe gelukt is.
 

Bijlagen

  • Helpmij vraag kopiëren plaatjes.xlsb
    39,7 KB · Weergaven: 23
Wat hier 'gong'

Code: 
Sub M_snb()
    Blad2.Visible = 2    ' very hidden
    Blad2.Shapes(1).CopyPicture
    Blad1.Paste Blad1.Cells(6, 6)
End Sub
 
Laatst bewerkt:
Dit zou voldoende moeten zijn:
Code: 
Sheets("Plaatjes").Shapes("Rolbuggy").Copy
ActiveSheet.Paste Range("F5")
 
@snb, @edmoor,

bedankt allebeide, het werkt (natuurlijk)!
 
Nog wat slimmer (zonder knop)
in de macromodule van Blad1:

Code: 
Private Sub Worksheet_Change(ByVal Target As Range)
   If Target.Address = "$C$5" Then
     Blad2.Shapes(Target).CopyPicture
     Blad1.Paste Blad1.Cells(6, 6)
   End If
End Sub
 
@snb, bedankt voor deze uitbreiding!
 
Status
Niet open voor verdere reacties.
Steun Ons

Nieuwste berichten

Terug
Bovenaan Onderaan