Dieses Forum nutzt Cookies
Dieses Forum verwendet Cookies, um deine Login-Informationen zu speichern, wenn du registriert bist, und deinen letzten Besuch, wenn du es nicht bist. Cookies sind kleine Textdokumente, die auf deinem Computer gespeichert werden. Die von diesem Forum gesetzten Cookies werden nur auf dieser Website verwendet und stellen kein Sicherheitsrisiko dar. Cookies aus diesem Forum speichern auch die spezifischen Themen, die du gelesen hast und wann du zum letzten Mal gelesen hast. Bitte bestätige, ob du diese Cookies akzeptierst oder ablehnst.

Ein Cookie wird in deinem Browser unabhängig von der Wahl gespeichert, um zu verhindern, dass dir diese Frage erneut gestellt wird. Du kannst deine Cookie-Einstellungen jederzeit über den Link in der Fußzeile ändern.

Bilder aus Kommentar speichern
#1
Hallo,

ich habe eine Excel Liste. In einer Spalte sind Bilder als Kommentare angelegt.

Gibt es eine Möglichkeit die Bilder, die in den Kommentaren hinterlegt sind zu speichern?

Ich habe gelesen das es mit der VBA funktioniert. Ich kenne mich aber mit dem Thema nicht aus.
Wenn es nicht zu schwer ist, kann mir einer eine kurze Anleitung sagen wie ich die Kommentare als Bild speichere?

Einen Code habe ich auch gefunden, jedoch weiß ich nicht wie man es richtig anwendet!

Sub Cmt_kopieren()
    Set cmt = ActiveCell.Comment
    cmt.Visible = True
    With cmt.Shape
    ActiveCell.Comment.Shape.CopyPicture xlScreen, xlBitmap
   
    Worksheets("Tabelle1").Range("H3").Select
    ActiveSheet.Paste
   
    End With

End Sub
Antwortento top
#2
Hallöchen,

also erst mal ein paar Hinweise.

Wo der Code hinkommt, weist Du? Den VBA-Editor kennst Du?

Im Code steht was von ActiveCell. Es wird also was mit der aktiven Zelle gemacht. Meist ist das die, die man gerade selektiert hat. Selektiere also mal eine Zelle mit Kommentar nebst Bild und schaue, was passiert.
Im Code steht auch was von worksheets und Tabelle1. Du solltest also auch ein Blatt mit diesem Namen haben oder zum Test erstellen.

Funktioniert das bis dahien?
   \\\|///      Hoffe, geholfen zu haben.
   ( ô ô )      Grüße, André aus G in T  
 ooO-(_)-Ooo    (Excel 97-2016)
Antwortento top
#3
Hallo,

also ich selektiere eine Zelle mit Kommentar, drücke dann Alt + F11 und füge dort den Code in diesen Editor ein.

Dann klicke ich auf Ausführen und es kommt diese Meldung: Die Select-Methode des Range-Objektes konnte nicht ausgeführt werden!

Ein neues Blatt mit "Tabelle 1" hatte ich angelegt. Muss ich vllt den Code etwas abändern oder wo liegt das Problem?
Antwortento top
#4
Bitte keine Bespieldatei hochladen.
Zum übersetzen von Excel Formeln:

http://dolf.trieschnigg.nl/excel/index.p...gids=en+de
Antwortento top
#5
Hallöchen,

ändere
Worksheets("Tabelle1").Range("H3").Select
ActiveSheet.Paste
in
Worksheets("Tabelle1").Range("H3").PasteSpecial
   \\\|///      Hoffe, geholfen zu haben.
   ( ô ô )      Grüße, André aus G in T  
 ooO-(_)-Ooo    (Excel 97-2016)
Antwortento top
#6
Also ich habe es hinbekommen das dann die Grafik in der Excel Liste seperat um Erscheinen kommt, ich kann die Grafik dann kopieren dann fügen wo ich die haben will.

Wie muss ich den Code ändern damit ich mehrere Zeilen in einer Spalte aktiviere?

Ich habe jetzt das PRoblem, das die Kommentare dauerhaft aufgepoppt sind, normalerweise kommen Sie erst nachdem ich mit der Maus drüber gehe.
Antwortento top


Gehe zu:


Benutzer, die gerade dieses Thema anschauen: 1 Gast/Gäste