Temat: Zdjęcie z tabeli przestawnej w treści emaila

Hej,
może ktoś wie jak zrobić zdjęcie z tabeli przestawnej. Jak korzystam z tego makra (rng to zaznaczony obszar gdzie znajduje się tabela przestawna), przy okazji robi mi wykres a na to nakleja zdjęcie tabeli przestawnej. W takiej sytuacji nakładają się na siebie zarówno wykres jak i tabela przestawna. Zdjęcie to wykorzystuje w makrze na wysyłanie emaila. Prośba o pomoc.

Sub Zrob_zdjecie()

Dim SHT As Worksheet
Dim rng As Range

Application.ScreenUpdating = False

'okreslamy arkusz z naszym zakresem

Set SHT = Sheets("Nazwa_Arkusza")

'określamy zakres, który będziemy eksportwować

Set rng = SHT.Range("B2:H10")

'kopiujemy ten obszar

rng.CopyPicture Appearance:=xlScreen, Format:=xlPicture

With SHT.ChartObjects.Add(Left:=150, Top:=100, _
Width:=1000, Height:=150)

With .Chart
.Paste
.Export ThisWorkbook.Path & "\Temp.jpg"
End With

.Delete
End With

Application.ScreenUpdating = True

End Sub

Temat: Zdjęcie z tabeli przestawnej w treści emaila

1. Smarujesz monitor płynem lugola
2. Robisz zdjęcie
3. Wysyłasz mailem

Temat: Zdjęcie z tabeli przestawnej w treści emaila