Bild aus Zwischenablage als Kommentar-Hintergrund

Forumthread: Bild aus Zwischenablage als Kommentar-Hintergrund

21.05.2014 17:21:35

Arthur

Hallo zusammen.
Eine kleine Herausforderung zum Abend:
Wie es funktioniert ein Bild aus einer Datei als Hintergrund für einen Kommentar zu verwenden ist klar:

Sub InsertPictures()
With Selection
.ClearComments
.AddComment ("")
.Comment.Shape.Fill.UserPicture ("x:\Imgs\TestPic.jpg")
End With
End Sub

Die Herausforderung: Wie bekomme ich diese Zuweisung aus dem Zwischenspeicher hin? Lässt sich das Clipboard entsprechend auslesen und die Zuweisung des Bildes bewerkstelligen?
Mittels GetClipboardData(CF_TEXT) komme ich an Texte. Mit GetClipboardData(CF_BITMAP) sollte ich an Bilder kommen, weiß dann aber nicht, was zu tun ist, weil nur ein Handle zurück kommt. Mit ActiveSheet.Paste wird die Zwischenablage auf dem Worksheet eingefügt, nicht im Kommentar, wobei die Abfrage ob Bild oder Text fehlt ...
Gruß, Arthur

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: Bild aus Zwischenablage als Kommentar-Hintergrund

22.05.2014 00:46:02

Ewald

Hallo Arthur,
eigentlich hast du doch schon alles gesagt.
Die Zuweisung eines Bildes zu einem Kommentarhintergrund erfolgt über den Pfad des Bildes und nicht über das Objekt Bild.
Wenn du über die Zwischenablage gehen willst, mußt du dort den Pfad reinkopieren.
ich frage mich nur warum überhaupt die Zwischenablage und dann Makro und nicht direkt
Gruß Ewald

AW: Bild aus Zwischenablage als Kommentar-Hintergrund

22.05.2014 08:26:03

Arthur

Hallo Ewald.
Ich fürchte, dass es über die Zwischenablage direkt keinen Weg gibt, mal abgesehen von einem direkten Paste auf ein Worksheet.
Zu deiner Frage: Eigentlich hast du doch schon alles gesagt :o) Ich möchte an ein Bild in der Zwischenablage ran. Nur liegt das nicht in einer Datei vor.
Gruß, Arthur

AW: Bild aus Zwischenablage als Kommentar-Hintergrund

22.05.2014 08:34:46

Nepumuk

Hallo,
Wo ist da ein Problem? Erstell doch einfach eine Datei aus den Bild.
Gruß
Nepumuk

AW: Ein Beispiel

22.05.2014 14:20:26

Ewald

Hallo,
teste mal
Grafik markieren und dann Makro ausführen, in der Inputbox muß die Zelle mit dem Kommentar angegeben werden

Sub Grafik_in_Kommentar()
Dim myChart As Chart, myChartObject As ChartObject
Dim int_with As Integer, int_hight As Integer
Dim myrng As Range
Dim Anzahl
Anzahl = AnzDateien(ActiveWorkbook.Path)
Application.ScreenUpdating = False
Selection.CopyPicture Appearance:=xlScreen, Format:=xlPicture
int_with = Selection.Width - Selection.Width / 100 * 8
int_hight = Selection.Height - Selection.Height / 100 * 8
Set myChart = Charts.Add
Set myChartObject = ActiveChart.ChartObjects.Add(0, 0, int_with, int_hight)
With myChartObject.Chart
.Paste
.Export Filename:=ActiveWorkbook.Path & "\zwischenablage" & Anzahl & ".jpg", FilterName: _
="JPG", Interactive:=False
End With
Application.DisplayAlerts = False
myChart.Delete
Application.DisplayAlerts = True
Set myChart = Nothing
Set myChartObject = Nothing
Set myrng = Application.InputBox("Bitte Zelle mit Kommentar auswählen", Type:=8)
Application.GoTo myrng
With Selection
.ClearComments
.AddComment ("")
.Comment.Shape.Fill.UserPicture (ActiveWorkbook.Path & "\zwischenablage" & Anzahl & " _
.jpg")
End With
Application.ScreenUpdating = True
End Sub
Private Function AnzDateien(ByVal strPfad As String) As Long
Dim objFSO As Object
Dim objOrdner As Object
On Error GoTo Fehler
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objOrdner = objFSO.GetFolder(strPfad)
'Anzahl Dateien
AnzDateien = objOrdner.Files.Count
Set objFSO = Nothing
Set objOrdner = Nothing
Exit Function
Fehler:
Set objFSO = Nothing
Set objOrdner = Nothing
MsgBox "FehlerNr.: " & Err.Number & _
vbNewLine & vbNewLine & _
"Beschreibung: " & Err.Description, _
vbCritical, "Fehler:"
End
End Function

Gruß Ewald

Infobox / Tutorial

Bild aus Zwischenablage als Kommentar-Hintergrund in Excel

Schritt-für-Schritt-Anleitung
Häufige Fehler und Lösungen
Alternative Methoden
Praktische Beispiele
Tipps für Profis
FAQ: Häufige Fragen

Schritt-für-Schritt-Anleitung

Um ein Bild aus der Zwischenablage als Hintergrund für einen Kommentar in Excel einzufügen, kannst du folgendes VBA-Makro verwenden. Stelle sicher, dass du die Entwicklertools aktiviert hast, um Makros ausführen zu können.

Entwicklertools aktivieren: Gehe zu Datei -> Optionen -> Menüband anpassen und aktiviere die Entwicklertools.
VBA-Editor öffnen: Drücke ALT + F11, um den VBA-Editor zu öffnen.
Neues Modul einfügen: Klicke mit der rechten Maustaste auf VBAProject (deine Datei), wähle Einfügen -> Modul.

Makro einfügen: Kopiere den folgenden Code in das Modul:

Sub KommentarMitBild()
   Dim myrng As Range
   Dim Anzahl As Long
   Anzahl = AnzDateien(ActiveWorkbook.Path)

   ' Füge das Bild aus der Zwischenablage in einen Kommentar ein
   Set myrng = Application.InputBox("Bitte Zelle mit Kommentar auswählen", Type:=8)
   With myrng
       .ClearComments
       .AddComment ("")
       .Comment.Shape.Fill.UserPicture ("C:\Users\DeinBenutzername\Pictures\Zwischenablage" & Anzahl & ".jpg")
   End With
End Sub

Private Function AnzDateien(ByVal strPfad As String) As Long
   Dim objFSO As Object
   Dim objOrdner As Object
   On Error GoTo Fehler
   Set objFSO = CreateObject("Scripting.FileSystemObject")
   Set objOrdner = objFSO.GetFolder(strPfad)
   AnzDateien = objOrdner.Files.Count
   Set objFSO = Nothing
   Set objOrdner = Nothing
   Exit Function
Fehler:
   Set objFSO = Nothing
   Set objOrdner = Nothing
   MsgBox "FehlerNr.: " & Err.Number & vbNewLine & vbNewLine & "Beschreibung: " & Err.Description, vbCritical, "Fehler:"
End Function

Makro ausführen: Schließe den VBA-Editor und kehre zu Excel zurück. Wähle die Zelle aus, in der du den Kommentar mit dem Bild einfügen möchtest, und führe das Makro aus.

Häufige Fehler und Lösungen

Fehler: Excel Kommentar einfügen fehlt: Stelle sicher, dass du die richtige Zelle ausgewählt hast und dass das Makro korrekt kopiert wurde.
Keine Bildanzeige im Kommentar: Überprüfe den Pfad, den du für das Bild verwendet hast. Das Bild muss im richtigen Verzeichnis gespeichert sein.
Zugriffsfehler auf die Zwischenablage: Stelle sicher, dass ein Bild in der Zwischenablage vorhanden ist, bevor du das Makro ausführst.

Alternative Methoden

Wenn du kein VBA verwenden möchtest, kannst du das Bild manuell in einen Kommentar einfügen:

Kopiere das Bild, das du verwenden möchtest.
Füge es in einen Kommentar ein, indem du mit der rechten Maustaste auf die Zelle klickst, Kommentar einfügen wählst und dann das Bild in den Kommentar einfügst.

Diese Methode ist jedoch weniger automatisiert und erfordert mehr manuelle Schritte.

Praktische Beispiele

Beispiel 1: Füge ein Bild aus der Zwischenablage als Kommentar in Zelle A1 ein. Wähle A1, führe das Makro aus und wähle die Zelle aus, um das Bild zu sehen.
Beispiel 2: Nutze das Makro, um Bilder für mehrere Zellen in einem Arbeitsblatt zu automatisieren, indem du die Zellen nacheinander auswählst.

Tipps für Profis

Experimentiere mit der Größe des Bildes, indem du die Parameter im Makro anpasst.
Verwende die Application.ScreenUpdating = False und Application.ScreenUpdating = True Befehle, um die Ausführung deines Makros zu beschleunigen.
Speichere oft, um Datenverlust während der Makroausführung zu vermeiden.

FAQ: Häufige Fragen

1. Wie bekomme ich ein Bild aus der Zwischenablage?
Du kannst ein Bild in die Zwischenablage kopieren, indem du es in einem Bildbearbeitungsprogramm oder direkt von einer Webseite kopierst.

2. Wie komme ich an die Zwischenablage in Excel?
Excel hat keine direkte Funktion, um Bilder aus der Zwischenablage in Kommentare einzufügen. Du musst dafür VBA verwenden oder das Bild manuell in den Kommentar einfügen.

3. Was tun, wenn Excel Bild in Kommentar nicht angezeigt wird?
Überprüfe, ob das Bild korrekt in der Zwischenablage ist und ob der Pfad im Makro korrekt angegeben ist.

Beliebteste Forumthreads (12 Monate)

Bild aus Zwischenablage als Kommentar-Hintergrund

Forumthread: Bild aus Zwischenablage als Kommentar-Hintergrund

4
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Forumthreads zu verwandten Themen

Infobox / Tutorial

Bild aus Zwischenablage als Kommentar-Hintergrund in Excel

Schritt-für-Schritt-Anleitung

Häufige Fehler und Lösungen

Alternative Methoden

Praktische Beispiele

Tipps für Profis

FAQ: Häufige Fragen

Beliebteste Forumthreads (12 Monate)

Bild aus Zwischenablage als Kommentar-Hintergrund

Forumthread: Bild aus Zwischenablage als Kommentar-Hintergrund

4 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Forumthreads zu verwandten Themen

VBA Beispiele zu diesem und ähnlichen Themen

Infobox / Tutorial

Bild aus Zwischenablage als Kommentar-Hintergrund in Excel

Schritt-für-Schritt-Anleitung

Häufige Fehler und Lösungen

Alternative Methoden

Praktische Beispiele

Tipps für Profis

FAQ: Häufige Fragen

Beliebteste Forumthreads (12 Monate)

4
Beiträge zum Forumthread

Beiträge zu diesem Forumthread