Autor
|
Thema: Grafik exportieren (15118 mal gelesen)
|
Hofe Mitglied Werkzeugmacher
Beiträge: 439 Registriert: 12.01.2008
|
erstellt am: 21. Nov. 2014 13:48 <-- editieren / zitieren --> Unities abgeben:
Hallo zusammen, es gibt in Excel die Möglichkeit, Bilder als Kommentare zu hinterlegen. Gibt es auch einen Weg, diese Kommentar-Bilder zu exportieren? Grüße Hofe ------------------ Ist mir egal, wer Dein Vater ist; solange ich angle läuft hier keiner übers Wasser! Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
HenryV Mitglied Konstrukteur, Engineering
Beiträge: 778 Registriert: 18.05.2005 SolidWorks 2020 x64 SP3.0 Dell Precision 5820 Intel Xeon W-2125 4x4GHz NVIDIA Quadro P2000 5GB 32GB RAM 2x Dell U2412M, 24" TFT Windows 10 Enterprise x64 21H1 Microsoft Office 365 ProPlus Microsoft Visual Studio Enterprise 2022
|
erstellt am: 21. Jan. 2015 16:42 <-- editieren / zitieren --> Unities abgeben: Nur für Hofe
|
Hofe Mitglied Werkzeugmacher
Beiträge: 439 Registriert: 12.01.2008
|
erstellt am: 21. Jan. 2015 19:13 <-- editieren / zitieren --> Unities abgeben:
Tach Andreas, geniale Sache! Das ist zwar nicht ganz das, was ich wollte, aber es bringt mich weiter. Besten Dank! Grüße Hofe ------------------ Ist mir egal, wer Dein Vater ist; solange ich angle läuft hier keiner übers Wasser! Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
Thomas Harmening Moderator Arbeiter ツ
Beiträge: 2897 Registriert: 06.07.2001 Das Innerste geäussert und aufs Äusserste verinnerlicht
|
erstellt am: 21. Jan. 2015 20:14 <-- editieren / zitieren --> Unities abgeben: Nur für Hofe
und für alle anderen Excelversionen, einfach als Webseite abspeichern ;-) Da die entsprechenden Bilder werden dann auch erzeugt. Alternativ greift man zur vba-Programmierung und liest das Bild aus dem Kommentar aus - das sollte auch gehen
Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
Hofe Mitglied Werkzeugmacher
Beiträge: 439 Registriert: 12.01.2008
|
erstellt am: 21. Jan. 2015 21:18 <-- editieren / zitieren --> Unities abgeben:
Zitat: Original erstellt von Thomas Harmening: Alternativ greift man zur vba-Programmierung und liest das Bild aus dem Kommentar aus - das sollte auch gehen
Genau darauf wollte ich eigentlich hinaus Grundprinzip ist, dass ich in einem Tabellenblatt einige hundert Bilder als Kommentare hinterlegt habe. Auch wenn die Bilder nicht sonderlich groß sind (300 Pixel Seitenlänge), so ist die Datei inzwischen auf ca. 30 MB angewachsen. Da ich diese Datei täglich sichere (u.a. auf einem Onlinespeicher) dauert das immer länger. Über die oben beschriebene Methode habe ich zwar Zugriff auf die Bilder, sie sind aber so benannt (Image1...2...3...), dass sie über ihren Dateinamen den Zellen nicht zuzuordnen sind. Sowas wäre über VBA sicher machbar, aber wie muss der Code aussehen, der mir die Bilddaten aus dem Kommentar holt? Die Bilder mit dem richtigen Namen extern zu speichern krieg ich dann schon hin. Grüße Hofe ------------------ Ist mir egal, wer Dein Vater ist; solange ich angle läuft hier keiner übers Wasser! Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
fritsrol Mitglied CAD-Systemingenieur
Beiträge: 143 Registriert: 11.12.2002 Windows 10 64 Office 2013 Eplan P8 2.7 HF2 VS 2015 Medusa 2000i2
|
erstellt am: 22. Jan. 2015 08:46 <-- editieren / zitieren --> Unities abgeben: Nur für Hofe
|
bst Mitglied
Beiträge: 192 Registriert: 31.08.2004 .
|
erstellt am: 22. Jan. 2015 09:33 <-- editieren / zitieren --> Unities abgeben: Nur für Hofe
Morgen, mal ein Versuch. Exportiert die Kommentare die Bilder enthalten im JPG-Format nach e:\test. Dateiname ist die Zelladresse, z.B. A10.jpg. HTH, Bernd --
Code: Option ExplicitSub x() Dim objComment As Comment, bolVis As Boolean For Each objComment In ActiveSheet.Comments If objComment.Shape.Fill.Type = msoFillPicture Then bolVis = objComment.Visible objComment.Visible = True SavePicture objComment, "e:\test\" objComment.Visible = bolVis End If Next End Sub Sub SavePicture(ByVal objComment As Comment, ByVal strPath As String) Dim ch As Chart Application.ScreenUpdating = False objComment.Shape.CopyPicture Set ch = ActiveSheet.ChartObjects.Add(0, 0, objComment.Shape.Width, objComment.Shape.Height).Chart ch.Paste ch.Export strPath & objComment.Parent.Address(0, 0) & ".jpg", "jpg" ch.Parent.Delete Application.ScreenUpdating = True End Sub
Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
Thomas Harmening Moderator Arbeiter ツ
Beiträge: 2897 Registriert: 06.07.2001 Das Innerste geäussert und aufs Äusserste verinnerlicht
|
erstellt am: 22. Jan. 2015 13:15 <-- editieren / zitieren --> Unities abgeben: Nur für Hofe
will man den Kommentartext noch weg haben Code: Sub x() Dim objComment As Comment, bolVis As Boolean For Each objComment In ActiveSheet.Comments If objComment.Shape.Fill.Type = msoFillPicture Then strComtxt = objComment.Text 'Hole Kommentartext objComment.Text Text:="" & Chr(10) 'ersezen durch "" bolVis = objComment.Visible objComment.Visible = True SavePicture objComment, "c:\test\" objComment.Visible = bolVis objComment.Text Text:=strComtxt 'schreiben des vorher geholten Kommentartext End If Next End Sub
Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
Hofe Mitglied Werkzeugmacher
Beiträge: 439 Registriert: 12.01.2008
|
erstellt am: 22. Jan. 2015 14:50 <-- editieren / zitieren --> Unities abgeben:
Zitat: Original erstellt von bst: mal ein Versuch. Exportiert die Kommentare die Bilder enthalten im JPG-Format nach e:\test. Dateiname ist die Zelladresse, z.B. A10.jpg.HTH, Bernd
Perfekt! Macht genau das was ich wollte Grüße Hofe ------------------ Ist mir egal, wer Dein Vater ist; solange ich angle läuft hier keiner übers Wasser! Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
Hofe Mitglied Werkzeugmacher
Beiträge: 439 Registriert: 12.01.2008 Computer: Aldi Schreibtisch: Ikea Werkbank: Baumarkt Software: 1967-2021, viele Updates und SP's, aber sicher nicht alle, deswegen immer wieder Sicherheitslücken
|
erstellt am: 22. Jan. 2015 14:51 <-- editieren / zitieren --> Unities abgeben:
Zitat: Original erstellt von Thomas Harmening: will man den Kommentartext noch weg haben
Isch 'abe gar kein Text. Trotzdem Danke für die Mühen! Grüße Hofe ------------------ Ist mir egal, wer Dein Vater ist; solange ich angle läuft hier keiner übers Wasser! Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |