Francois hat eine Reihe von Kommentaren in einem Arbeitsblatt, und jeder Kommentar enthält ein Bild als Hintergrund. Er möchte diese Hintergrundbilder aus den Kommentaren entfernen und sie stattdessen als Grafiken in den Zellen rechts von der Position der Kommentare platzieren.

Der einzige Weg, dies zu tun, ist mit Hilfe eines Makros. Der Grund dafür ist, dass Sie keine Grafik manuell auswählen und kopieren können, die im Hintergrund eines Kommentars gespeichert wurde. Sie können in einem Makro ungefähr „greifen“

das Bild:

Sub CommentPictures()

Dim cmt As Comment     Dim rCell As Range     Dim bVisible As Boolean

For Each cmt In ActiveSheet.Comments         With cmt             bVisible = .Visible             .Visible = True             Set rCell = .Parent.Offset(0, 1)

.Shape.CopyPicture _               Appearance:=xlScreen, Format:=xlPicture             rCell.PasteSpecial             Selection.ShapeRange.LockAspectRatio = msoFalse             Selection.Width = rCell.Width             Selection.Height = rCell.Height             .Visible = bVisible             .Shape.Fill.OneColorGradient msoGradientFromCenter, 1, 1         End With     Next cmt End Sub

Das Makro durchläuft jeden Kommentar im aktiven Arbeitsblatt. Der gesamte Kommentar (einschließlich des Hintergrunds) wird als Grafik in die Zwischenablage kopiert und anschließend in die gewünschte Zelle eingefügt. Der Hintergrund des Kommentars wird dann anstelle der Grafik auf eine andere Füllung gesetzt.

Sie sollten beachten, dass dieser Ansatz nur eine Annäherung an das Aufnehmen des Hintergrundbilds bietet. Beim Kopieren des gesamten Kommentars als Grafik wird auch der im Kommentar enthaltene Text kopiert.

_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 (11164) gilt für Microsoft Excel 97, 2000, 2002 und 2003.

Eine Version dieses Tippes für die Multifunktionsleistenoberfläche von Excel (Excel 2007 und höher) finden Sie hier:

Verschieben von Kommentar-Hintergrundbildern zu Zellen.