Thema Datum  Von Nutzer Rating
Antwort
11.08.2017 10:41:46 Don
NotSolved
Blau Bild aus Kommentar extern speichern, automatisch
 11.08.2017 14:02:14 Ben
NotSolved
11.08.2017 14:14:27 Ben
NotSolved
11.08.2017 20:13:49 Gast20106
NotSolved

Ansicht des Beitrags:
Von:
Ben		 Datum:
11.08.2017 14:02:14		 Views:
611		 Rating:
     
Antwort:
  Ja
Thema:
Bild aus Kommentar extern speichern, automatisch

Hallo,

ich würde es so machen (Teil-Lösung):

Sub SavePictures()
    Dim wsh As Worksheet
    Dim rng As Range
    Dim rngPic As Range
    Dim rngCom As Range
    Dim sh As Shape
    Set wsh = ActiveSheet
    
    For Each rng In wsh.UsedRange.Rows
        Set rngPic = wsh.Cells(rng.Row, 1) ' Bild
        Set rngCom = wsh.Cells(rng.Row, 2) ' Kommentar
        For Each sh In wsh.Shapes
            If sh.TopLeftCell.Address = rngPic.Address Then
                ' Bild Speichern
                ' Dateiname = rngCom.Value
                Exit For
            End If
        Next
    Next
End Sub

Es wird vorausgesetzt, dass die Bilder der Spalte A zugewiesen und die Kommentare in Spalte B enthalten sind.

ToDo: Der eigentliche Befehl zum Auslesen des Bildes aus der Variable SH und Speicherung als Bild muss noch anstelle der Kommentare nachgetragen werden.

LG, Ben

Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:



  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
11.08.2017 10:41:46 Don
NotSolved
Blau Bild aus Kommentar extern speichern, automatisch
 11.08.2017 14:02:14 Ben
NotSolved
11.08.2017 14:14:27 Ben
NotSolved
11.08.2017 20:13:49 Gast20106
NotSolved