Office: Wie lösche ich die Kommetarfüllung von mehreren Kommentaren?

Hallo,
ich habe eine Exceltabell in denen viele Kommentare hinterlegt sind. Nun stehen in einigen vielen Informationen als Text und aber auch noch zusätzlich ein Bild welches als Farbfüllung hinterlegt wurde.

Da es sich um über 100 Kommentaren handelt fände ich es super, wenn ich alle Kommentare die Farbfüllung von allen kommentaren löschen kann. Die Informationen in Textform soll erhalten bleiben.

Kann mir jemand helfen?

Vielen Dank

 

Hi,

versuche es mal mit diesem Code:

Code:

Sub Kommentare()
   Dim rngZelle As Range
   Dim strText As String
   For Each rngZelle In ActiveSheet.Cells.SpecialCells(xlCellTypeComments)
      strText = rngZelle.Comment.Text
      rngZelle.Comment.Delete
      rngZelle.AddComment Text:=strText
   Next rngZelle
End Sub

Die Kommentare im aktiven Tabellenblatt werden auf ihr Standard-Aussehen zurückgesetzt. Dazu wird der Text in eine Variable geschrieben, der Kommentar gelöscht und mit dem Text neu erstellt.

Achtung!! Vor Codeausführung Sicherheitskopie anlegen!

Bis später,
Karin

 

Hallo nexus404 und Karin,

müsste doch eigentlich auch direkt gehen, oder?

Code:

Sub Bilder_aus_Kommentare_loeschen()
   Dim rngZelle As Range
   For Each rngZelle In ActiveSheet.Cells.SpecialCells(xlCellTypeComments)
      rngZelle.Comment.Shape.Delete
   Next rngZelle
End Sub

In einem kurzen Test blieb der Text erhalten.
Oder übersehe ich etwas?

 

Hi Achim,

bei mir (Excel2010) werden mit deinem Code die Kommentar-Shapes gelöscht - so würde ich das auch vom Code her interpretieren. Es bleibt nur der rote Indikator in der Zelle aber kein Kommentar-Shape mit beinhaltetem Text.

Bis später,
Karin

 

Hallo Karin,

hast vollkommen recht, da habe ich schlecht getestet und nicht zu ende gedacht.

Aber hiermit sollte es gehen:

Code:

Sub Bilder_aus_Kommentare_loeschen()
   Dim rngZelle As Range
   For Each rngZelle In ActiveSheet.Cells.SpecialCells(xlCellTypeComments)
      rngZelle.Comment.Shape[COLOR=#ff0000].Fill.Solid[/COLOR]
   Next rngZelle
End Sub

Das habe ich jetzt auch getestet...
Bild per Makro in Kommentar eingefügt:

Code:

Sub Kommentar_mit_Bild_erstellen()
    ActiveSheet.Range("A1").AddComment Text:="Hallo"
    ActiveSheet.Range("A1").Comment.Shape.Fill.UserPicture "Pfad\bildname.jpg"   ' Pfad muss natürlich angepasst werden
End Sub

und danach mit dem oberen Code gelöscht > Kommentar mit Text bleibt bestehen und hat die normale Hintergrundfarbe.

 

Hi Achim,

das stimmt schon, aber nur wenn es tatsächlich eine Grafik ist. Füge aber anstelle einer Grafik mal ein Muster ein, oder eine Struktur oder eine graduelle Formatierung und führe dann deinen Code aus. Hinzu kommt noch, dass dabei die Standardhintergrundfarbe auf "keine Farbe" gesetzt wird. Falls also neue Kommentare hinzukommen, haben diese eine andere Hintergrundfarbe als die mit dem Code formatierten. Zumindest ist das bei mir in Excel2010 der Fall.

Bis später,
Karin

 

Hallo Karin,

danke für Deine Erklärungen.
Also kann ich zwar ein Bild in einen Kommentar einfügen, habe danach aber keinerlei Möglichkeit eines Zugriffes mehr, und muss im Zweifelsfall den kompletten Kommentar löschen und neu anlegen.
... Wie blöd ist das denn?

 

Hallo Karin,

das hat alles sehr gut funktioniert. Vielen Dank! Du hast mir viel Arbeit erspart:-)

 

Kann ich auch die Bilder aus den Kommentaren komprimieren? Ziel soll sein, die Datei von jetzigen 230 MB zu verschlanken.
Habe ishcon die kompressionmethode versucht, klappt aber nicht.