JPG afbeelding separaat opslaan in apart werkblad.

[HaukM]

Beste Forumleden.


M.b.v. vba codes is in een exelbestand een verjaardagskaart gemaakt met gegevens vanuit het werkblad Verjaardagslijst! . D.m.v. het dubbelklikken op een voornaam wordt de kaart gemaakt.

Hierna wordt met een opdrachtknop de verjaardagskaart, met tekst in de onderwerp regel van de e-mail, verzonden naar de jarige.


Soms wil je een extra vermelding maken voor een bijzondere persoon.
Dan zou ik graag de gemaakte kaart op een derde werkblad als JPG hebben, die ik dan kan kopiëren.
Kan deze gelijktijdig worden aangemaakt?? En natuurlijk ook weer overschreven worden als een nieuwe kaart wordt gemaakt.


Uiteraard moet ik dan zelf de e-mail opstellen en de JPG als bijlage in de e-mail zetten.

Zie bijlage.

Met vriendelijke groet,
HaukM

 

[edmoor]

Wat bedoel je met "extra vermelding"?

 

[HaukM]

Hiermee bedoel ik dat er personen zijn die als vrijwilliger veel voor de club doen.
Een stukje extra tekst die ik dan op de e-mail wil zetten.

dank voor je reactie,
HaukM

 

[edmoor]

De HTMLBody is nu vaste tekst maar zou je ook uit een bereik kunnen lezen op het blad Verjaardagskaart.
Is het die tekst die je bedoelt?

 

[HaukM]

Nee, een enkele maal wil ik zelf een e-mail maken met tekst.

Vervolgens de gemaakte kaart bij deze e-mail doen.

Ik 95% van de gevallen wordt de gemaakte kaart automatisch verzonden met de opdrachtknoppen.

Ik heb op de bijgevoegde bijlage wat tekst op het derde werkblad gezet.

 

[edmoor]

Dat is precies wat ik bedoel.
De tekst die je dan wilt sturen vul je in een bereik in en die tekst wordt dan als tekst in de body van de mail gebruikt.

 

[HaukM]

Yes
Kan dit??

 

[cow18]

Sub KopieJPG()
   Set c1 = Sheets("Verjaardagskaart").Range("A1")   'cel linksboven in verjaardagskaart
   With Sheets("AfbeeldingKaartJPG")
      Set c = .Range("A1")                       'cel linksboven in ...JPG

      For i = 0 To 24                            'in een loopje maken dat alle rijhoogtes en kolombreedtes gelijk zijn in beide werkbladen
         c.Offset(i, i).RowHeight = c1.Offset(i, i).RowHeight
         c.Offset(i, i).ColumnWidth = c1.Offset(i, i).ColumnWidth
      Next

      .UsedRange.Clear                           'werkblad leegmaken
      For Each shp In .Shapes
         shp.Delete                              'alle shapes deleten
      Next

      c1.Resize(24, 10).Copy c                   'van ene blad naar andere blad kopieren
   End With
End Sub

zie nu pas de andere opmerkingen, ja, misschien toch beter die manier kiezen.

 

[edmoor]

Kijk maar eens naar deze:
Bekijk bijlage Kopie van Verjaardagslijst versie 21052020.xlsm

Hierin is ook het probleem van het overschrijven van het plaatje opgelost.

 

[HaukM]

Edmoor,

sorry voor de late reactie.
Vraag is opgelost.
Dank voor de antwoorden ook in eerdere vragen.

Mvg,
HaukM