Druckansicht als Bild in Kommentar einfügen

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Sub BereichAlsBildInKommentar() Dim chDiagramm As ChartObject Dim comKommentar As Comment Application.ScreenUpdating = False If ActiveCell.Comment Is Nothing Then Range("A1:G50").CopyPicture Appearance:=xlScreen, Format:=xlPicture ' evtl. Bereich _ anpassen ActiveSheet.Paste Set chDiagramm = ActiveSheet.ChartObjects.Add(0, 0, ActiveSheet.Shapes(1).Width, _ ActiveSheet.Shapes(1).Height) With chDiagramm.Chart .Paste .Export Filename:="C:\Test\Bild.jpg", FilterName:="JPG" ' andere Grafikformate sind _ möglich End With Set comKommentar = ActiveCell.AddComment With comKommentar .Visible = False .Text Text:="" .Shape.Fill.UserPicture "C:\Test\Bild.jpg" .Shape.Height = ActiveSheet.Shapes(1).Height .Shape.Width = ActiveSheet.Shapes(1).Width End With chDiagramm.Delete ActiveSheet.Shapes(1).Delete End If Set chDiagramm = Nothing Set comKommentar = Nothing Application.ScreenUpdating = True End Sub

Hallo Karin,
meine Hochachtung. Du hast fast ins schwarze getroffen :-)
Nach CopyPicture kommt ja ActiveSheet.Paste. Dann haut Excel mir das Bild in meine Auftragsdatei.
Wahrscheinlich muss vorher erst ein neues Blatt erstellt werden.
Kannst Du mir noch behilflich sein, beim formulieren für:
- öffne die Datei, die mit 094-09 beginnt (dann kommt Dein Code)
- erstelle eine neue Datei (zum zwischenspeichern des Bildes)
- nach dem Einfügen des Bildes in den Kommentar, die eben erstellte Datei wieder löschen
- die geöffnete Datei (hier 094-09) wieder schließen
Ist das Bild dann in Excel eingebunden und kann die Bilddatei wieder gelöscht werden ?
Ganz lieben Dank dafür, bin jetzt einen riesen Schritt weiter.
Sonnige Grüße aus dem Norden
Stefan

Hi Stefan,
ergänze den Code um die folgende Zeile, dann wird die exportierte Bilddatei auch wieder gelöscht:


Kill "C:\Test\Bild.jpg"

Die in das Tabellenblatt eingefügte Bildkopie des Bereichs A1:G50 und das für den Bildexport als JPG erforderliche Diagramm werden in dem geposteten Code bereits wieder gelöscht.
Wenn du nicht das Tabellenblatt, in welches der Kommentar eingefügt werden soll, als "Zwischenspeicher" verwenden willst, kannst du auch ein anderes (z.B. leeres) Tabellenblatt dazu verwenden. Der Code würde dann so aussehen (einschließlich Löschen der exporierten Bilddatei):


Sub BereichAlsBildInKommentar()
Dim chDiagramm As ChartObject
Dim comKommentar As Comment
Application.ScreenUpdating = False
If ActiveCell.Comment Is Nothing Then
Range("A1:G50").CopyPicture Appearance:=xlScreen, Format:=xlPicture
With Worksheets("Tabelle2")
.Paste
Set chDiagramm = .ChartObjects.Add(0, 0, .Shapes(1).Width, .Shapes(1).Height)
With chDiagramm.Chart
.Paste
.Export Filename:="C:\Test\Bild.jpg", FilterName:="JPG"
End With
Set comKommentar = ActiveCell.AddComment
With comKommentar
.Visible = False
.Text Text:=""
.Shape.Fill.UserPicture "C:\Test\Bild.jpg"
.Shape.Height = Worksheets("Tabelle2").Shapes(1).Height
.Shape.Width = Worksheets("Tabelle2").Shapes(1).Width
End With
chDiagramm.Delete
.Shapes(1).Delete
End With
End If
Set chDiagramm = Nothing
Set comKommentar = Nothing
Kill "C:\Test\Bild.jpg"
Application.ScreenUpdating = True
End Sub

Das Öffnen und Schließen der Arbeitsmappe kannst du mit dem Makrorekorder aufzeichnen.

Beliebteste Forumthreads (12 Monate)

Druckansicht als Bild in Kommentar einfügen

3 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

3
Beiträge zum Forumthread

Beiträge zu diesem Forumthread