userform Image mit LoadPicture Bild wird nicht geladen

Ich finde den Fehler nicht. Bild ist da, ich kann es über andere Bildbetrachter öffnen aber es geht nicht in die Userform rein. Vielleicht habt Ihr eine Idee was ich übersehe.

Hier die Datei : https://www.herber.de/bbs/user/164642.xlsm

Private Declare Function URLDownloadToFile Lib "urlmon" Alias _
"URLDownloadToFileA" (ByVal pCaller As Long, ByVal szURL As String, ByVal _
szFileName As String, ByVal dwReserved As Long, ByVal lpfnCB As Long) As Long

Public Function qrcode(QRCode_Wert As String) As String

'Variablen deklarieren

Dim sURL As String, strTemp As String

Dim result As Long

'URL definieren

sURL = "https://chart.googleapis.com/chart?cht=qr&&chs=100x100&&chl=" & QRCode_Wert

'Alten QR-Code löschen, falls vorhanden

On Error Resume Next

XTicket.ImQr.Picture = LoadPicture("")

On Error GoTo 0



'QR-Code einfügen



If sURL = "" Then Exit Function

strTemp = Environ("TEMP") & "\tmp." & "bmp"

result = URLDownloadToFile(0, sURL, strTemp, 0, 0)

' Bild auswählen und Pfad und Bildname in tag schreiben



' UserForm aktualisieren damit Bild angezeigt wird (kann einen Augenblick dauern)

If result = 0 Then

  On Error Resume Next

  'Prüfen, ob Datei vorhanden

        XTicket.ImQr.Picture = LoadPicture(strTemp)

        XTicket.ImQr.PictureSizeMode = fmPictureSizeModeStretch

   If Err Then

    MsgBox "Ungeeigneter Dateityp!", 64, "Fehler"

    Err.Clear

  End If

  On Error GoTo 0

  Kill strTemp

Else

  MsgBox "Internetfile nicht gefunden!", 64, "Fehler"

End If



qrcode = "erledigt"

End Function

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Public Sub Ticketeintragen() Dim ws As Worksheet Dim Wzeile As Integer Dim c As Range On Error GoTo error_handler For Each ws In ActiveWorkbook.Worksheets If ws.Name = Kunde.TextBoxKundenname & Kunde.TextBoxKundennummer Then 'Ticket finden With ws.Range(ws.Cells(1, 1), ws.Cells(1, ws.UsedRange.SpecialCells(xlCellTypeLastCell).Column)) 'Anzahl der Spalten in den Kundendatentabellen akt.15 Set c = .Find(What:=Left(Tickets.TicketsListBox1.Column(0, Tickets.TicketsListBox1.ListIndex), 6), after:=ws.Cells(1, ws.UsedRange.SpecialCells(xlCellTypeLastCell).Column), lookat:=xlPart) End With If Not c Is Nothing Then Wzeile = ws.Cells(Rows.Count, c.Column).End(xlUp).Row ws.Cells(Wzeile + 1, c.Column).Value = Format(Now(), "DD.MM.YYYY") 'Trägt beim benutzen Ticket das Datum ein ws.Cells(Wzeile + 1, c.Column + 1).Value = XTicket.Label3 ' Anzahl Tickets ws.Cells(Wzeile + 1, c.Column + 2) = XTicket.Label5 ' Ticketnummer eintragen End If Else End If Next ws Exit Sub error_handler: MsgBox "Fehler in der Sub Ticketeintragen, bitte wiederholen oder Admin informieren!" End Sub

Beliebteste Forumthreads (12 Monate)

userform Image mit LoadPicture Bild wird nicht geladen

5 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

5
Beiträge zum Forumthread

Beiträge zu diesem Forumthread