Thema Datum  Von Nutzer Rating
Antwort
18.09.2016 15:13:13 Copiloc
NotSolved
18.09.2016 17:34:15 Crazy Tom
*****
Solved
Rot Bild aus UserForm in Kommentar anhängen
18.09.2016 17:55:10 Crazy Tom
NotSolved

Ansicht des Beitrags:
Von:
Crazy Tom
Datum:
18.09.2016 17:55:10
Views:
681
Rating: Antwort:
  Ja
Thema:
Bild aus UserForm in Kommentar anhängen

Hallo nochmal

da wird aber nur ein Bild in den Kommentar eingefügt wenn der Filmtitel noch nicht in einer Zelle steht

ich würtde den Code wie folgt ändern

    Dim MovieTitle As Range
    Dim MoviePoster As String
    Dim ImageFolderPath As String
    Dim ImagePath As String
    Dim MovieName As String
    Dim lngZiel As Long
     
    MovieName = txtMovieName.Value
    ImageFolderPath = Environ("UserProfile") & "\Desktop\Movie Database\Movie Posters"
    ImagePath = ImageFolderPath & "\" & MovieName & ".jpg"
     
    imgMoviePoster.Picture = LoadPicture(ImagePath)
    MoviePoster = ImageFolderPath & "\" & MovieName & ".jpg"
     
    Set MovieTitle = Range("P:P").Find(txtMovieName.Value, MatchCase:=True, LookAt:=xlWhole)
     
    If Not MovieTitle Is Nothing Then
        With Cells(MovieTitle.Row, "P")
            .AddComment
            .Comment.Shape.Fill.UserPicture MoviePoster
            .Comment.Visible = False
        End With
    Else
        lngZiel = Range("P2").End(xlDown).End(xlDown).End(xlUp).Row + 1
        With Cells(lngZiel, "P")
            .Value = txtMovieName.Value
            .AddComment
            .Comment.Shape.Fill.UserPicture MoviePoster
            .Comment.Visible = False
    End With
    End If

MfG Tom


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
18.09.2016 15:13:13 Copiloc
NotSolved
18.09.2016 17:34:15 Crazy Tom
*****
Solved
Rot Bild aus UserForm in Kommentar anhängen
18.09.2016 17:55:10 Crazy Tom
NotSolved