kopieren van een deel van een werkblad als afbeelding

[HaukM]

Beste forumleden,

In een eerdere post ben ik geweldig geholpen.
Mijn tweede vraag over dezelfde bijlage is als volgt:

Ik wil graag het werkblad "Verjaardagskaart" (Cel A1:I23) met de hierop
geplaatste tekst en plaatjes als JPEG of PNG of bitmap d.m.v. een opdrachtknop
kopieren naar een vaste dir op mijn computer bijvoorbeeld: [deze pc >bridge (F >Verjaardagen]

Is dit mogelijk?

Mvg HaukM

 

[edmoor]

Probeer deze eens:
Bekijk bijlage Verjaardagslijst met 1ste formule-1.xlsm

Druk op de knop op het blad Verjaardagskaart.
Er wordt dan in de map waar je document staat een plaatje gemaakt met de naam Verjaardagskaart.jpg
Die locatie kan je uiteraard aanpassen.
De code is simpel en zie je vast wel waar je dat kan doen.

 

[HaukM]

Vraag beantwoord

Mijn vraag is beantwoord. Precies wat ik bedoelde.
edmoor dank je wel.

 

[HSV]

Geen noodzaak, maar het kan wel iets korter.

Sub hsv()
Range("A1:I23").CopyPicture  ' default xlScreen,xlPicture
With ChartObjects.Add(0, 0, 450, 400).Chart
    .Paste
    .Export ThisWorkbook.Path & "\Verjaarsdagskaart.jpg", "jpg"
    .Parent.Delete
   End With
End Sub

 

[HaukM]

Harry,

Bedankt voor de reactie.

Vanavond wil ik graag een laatste post zetten als vervolg op de reeds gedane stappen.

"Verzenden van gemaakte .jpg en geselecteerde cel via een gmail-account d.m.v. opdrachtknop"

mvg

 

[HSV]

Verzend je met Outlook of via Gmail zelf?

 

[HaukM]

Bedoeling is met gmail account van de vereniging.
Ik heb inmiddels de nieuwe post geplaatst.