Hot News:

Unser Angebot:

  Foren auf CAD.de (alle Foren)
  Excel
  Grafik exportieren

Antwort erstellen  Neues Thema erstellen
CAD.de Login | Logout | Profil | Profil bearbeiten | Registrieren | Voreinstellungen | Hilfe | Suchen

Anzeige:

Darstellung des Themas zum Ausdrucken. Bitte dann die Druckfunktion des Browsers verwenden. | Suche nach Beiträgen nächster neuer Beitrag | nächster älterer Beitrag
Autor Thema:   Grafik exportieren (14184 mal gelesen)
Hofe
Mitglied
Werkzeugmacher


Sehen Sie sich das Profil von Hofe an!   Senden Sie eine Private Message an Hofe  Schreiben Sie einen Gästebucheintrag für Hofe

Beiträge: 433
Registriert: 12.01.2008

Computer: Aldi
Schreibtisch: Ikea
Werkbank: Baumarkt
Software:
1967-2014, viele Updates und SP's, aber sicher nicht alle, deswegen immer wieder Sicherheitslücken

erstellt am: 21. Nov. 2014 13:48    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities

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


Sehen Sie sich das Profil von HenryV an!   Senden Sie eine Private Message an HenryV  Schreiben Sie einen Gästebucheintrag für HenryV

Beiträge: 696
Registriert: 18.05.2005

SolidWorks 2018 x64 SP4.0
Dell T3600 Workstation
Intel XENON 6x3.2 GHz
NVIDIA Quadro 4000 2 GB
16GB RAM
2x Dell U2412M, 24" TFT
Windows 7 Professional x64 SP1
Microsoft Office Pro 2010 SP2
Kaspersky Anti-Virus 10.2.4.674
Microsoft VB 2010 Express
SpacePilot von 3Dconnexion

erstellt am: 21. Jan. 2015 16:42    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities Nur für Hofe 10 Unities + Antwort hilfreich

Hallo Hofe

Falls die Datei im 2007 Format vorliegt, kann man die Datei mit einem ZIP-Programm öffnen und das Bild extrahieren.

Siehe hier ->
https://support.office.com/de-at/article/Extrahieren-von-Dateien-oder-Objekten-aus-einer-PowerPoint-2010-Datei-85511e6f-9e76-41ad-8424-eab8a5bbc517

oder

http://www.berlin.de/special/computer-und-handy/computer/ratgeber/2336905-909333-grafiken-aus-officedokumenten-extrahiere.html

Gruss Andreas

------------------
21 ist nur die halbe Antwort.

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

Hofe
Mitglied
Werkzeugmacher


Sehen Sie sich das Profil von Hofe an!   Senden Sie eine Private Message an Hofe  Schreiben Sie einen Gästebucheintrag für Hofe

Beiträge: 433
Registriert: 12.01.2008

Computer: Aldi
Schreibtisch: Ikea
Werkbank: Baumarkt
Software:
1967-2014, viele Updates und SP's, aber sicher nicht alle, deswegen immer wieder Sicherheitslücken

erstellt am: 21. Jan. 2015 19:13    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities

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 ツ




Sehen Sie sich das Profil von Thomas Harmening an!   Senden Sie eine Private Message an Thomas Harmening  Schreiben Sie einen Gästebucheintrag für Thomas Harmening

Beiträge: 2896
Registriert: 06.07.2001

Das Innerste geäussert
und aufs Äusserste verinnerlicht

erstellt am: 21. Jan. 2015 20:14    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities Nur für Hofe 10 Unities + Antwort hilfreich

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


Sehen Sie sich das Profil von Hofe an!   Senden Sie eine Private Message an Hofe  Schreiben Sie einen Gästebucheintrag für Hofe

Beiträge: 433
Registriert: 12.01.2008

Computer: Aldi
Schreibtisch: Ikea
Werkbank: Baumarkt
Software:
1967-2014, viele Updates und SP's, aber sicher nicht alle, deswegen immer wieder Sicherheitslücken

erstellt am: 21. Jan. 2015 21:18    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities

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


Sehen Sie sich das Profil von fritsrol an!   Senden Sie eine Private Message an fritsrol  Schreiben Sie einen Gästebucheintrag für fritsrol

Beiträge: 140
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 oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities Nur für Hofe 10 Unities + Antwort hilfreich

Hallo,

da auch die Bilder in Kommentaren Shape Objekte sein müssten, hilft Dir vielleicht das weiter ...

http://database.ittoolbox.com/groups/technical-functional/excel-l/saving-picture-through-vba-from-excel-shape-object-2530356

Gruß
Roland

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

bst
Mitglied



Sehen Sie sich das Profil von bst an!   Senden Sie eine Private Message an bst  Schreiben Sie einen Gästebucheintrag für bst

Beiträge: 192
Registriert: 31.08.2004

.

erstellt am: 22. Jan. 2015 09:33    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities Nur für Hofe 10 Unities + Antwort hilfreich

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 Explicit

Sub 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 ツ




Sehen Sie sich das Profil von Thomas Harmening an!   Senden Sie eine Private Message an Thomas Harmening  Schreiben Sie einen Gästebucheintrag für Thomas Harmening

Beiträge: 2896
Registriert: 06.07.2001

Das Innerste geäussert
und aufs Äusserste verinnerlicht

erstellt am: 22. Jan. 2015 13:15    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities Nur für Hofe 10 Unities + Antwort hilfreich

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


Sehen Sie sich das Profil von Hofe an!   Senden Sie eine Private Message an Hofe  Schreiben Sie einen Gästebucheintrag für Hofe

Beiträge: 433
Registriert: 12.01.2008

Computer: Aldi
Schreibtisch: Ikea
Werkbank: Baumarkt
Software:
1967-2014, viele Updates und SP's, aber sicher nicht alle, deswegen immer wieder Sicherheitslücken

erstellt am: 22. Jan. 2015 14:50    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities

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


Sehen Sie sich das Profil von Hofe an!   Senden Sie eine Private Message an Hofe  Schreiben Sie einen Gästebucheintrag für Hofe

Beiträge: 433
Registriert: 12.01.2008

Computer: Aldi
Schreibtisch: Ikea
Werkbank: Baumarkt
Software:
1967-2014, viele Updates und SP's, aber sicher nicht alle, deswegen immer wieder Sicherheitslücken

erstellt am: 22. Jan. 2015 14:51    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities

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

Anzeige.:

Anzeige: (Infos zum Werbeplatz >>)

Darstellung des Themas zum Ausdrucken. Bitte dann die Druckfunktion des Browsers verwenden. | Suche nach Beiträgen

nächster neuerer Beitrag | nächster älterer Beitrag
Antwort erstellen


Diesen Beitrag mit Lesezeichen versehen ... | Nach anderen Beiträgen suchen | CAD.de-Newsletter

Administrative Optionen: Beitrag schliessen | Archivieren/Bewegen | Beitrag melden!

Fragen und Anregungen: Kritik-Forum | Neues aus der Community: Community-Forum

(c)2020 CAD.de | Impressum | Datenschutz