Andres hat ein Bild in der Zwischenablage. Er möchte für die ausgewählte Zelle das Bild in einen Kommentar einfügen. Wenn die Zelle keinen Kommentar hat, müsste einer erstellt werden. Wenn es bereits einen Kommentar gibt, muss das Bild hinzugefügt werden. Andres weiß, dass dies ein Makro erfordern würde, aber er ist sich nicht sicher, wie er mit Kommentaren in einem Makro arbeiten soll, um das zu tun, was er braucht.

Microsoft bezeichnet in der neuesten Office 365-Version comments jetzt als notes. Für die Zwecke dieses Tipps werde ich sie jedoch weiterhin mit dem traditionellen Namen comments bezeichnen.

Was Andres tun möchte, ist bei weitem nicht so einfach, wie man es sich wünscht. Das erste Problem ist, dass es in VBA anscheinend keine Möglichkeit gibt, die Zwischenablage als Quelle für ein Bild zu verwenden, das für einen Kommentar bestimmt ist. Sie können dies umgehen, indem Sie die Quelle in ein Bild in einer Datei ändern. Mit anderen Worten, das Makro ermöglicht dem Benutzer die Auswahl einer Bilddatei, die dann in den Kommentar eingefügt wird.

Sub AddCommentPicture()

Dim PicChoice As Variant

If ActiveCell.Comment Is Nothing Then         ActiveCell.AddComment     End If     PicChoice = Application.GetOpenFilename("JPEGs .jpg,.jpg")



If PicChoice = False Then         MsgBox "No file was selected."

Else         ActiveCell.Comment.Shape.Fill.UserPicture PicChoice         ActiveCell.Comment.Shape.LockAspectRatio = True     End If End Sub

Das Makro testet die aktive Zelle, um festzustellen, ob sie einen Kommentar enthält. Wenn nicht, wird eine hinzugefügt. Anschließend wird ein Dialogfeld zum Öffnen angezeigt, in dem nur JPG-Dateien angezeigt werden. (Sie können den Parameter der GetOpenFilename-Funktion ändern, um anzugeben, welche Dateitypen angezeigt werden sollen.) Die ausgewählte Datei wird dann dem Kommentar zugewiesen.

Beachten Sie, dass der Code nichts zur Größenänderung des Bildes beiträgt. Falls gewünscht, können Sie den Code hinzufügen, der für die Größenänderung erforderlich ist. Sie möchten diesen Code direkt nach der Zeile hinzufügen, die das Seitenverhältnis des Bildes am Ende des Makros sperrt.

_Hinweis: _

Wenn Sie wissen möchten, wie die auf dieser Seite (oder auf einer anderen Seite der ExcelTips-Websites) beschriebenen Makros verwendet werden, habe ich eine spezielle Seite vorbereitet, die hilfreiche Informationen enthält.

Klicken Sie hier, um diese spezielle Seite in einem neuen Browser-Tab zu öffnen.

ExcelTips ist Ihre Quelle für kostengünstige Microsoft Excel-Schulungen.

Dieser Tipp (5489) gilt für Microsoft Excel 2007, 2010, 2013, 2016, 2019 und Excel in Office 365.