Dynamisches Bild in Userform
29.05.2017 14:54:36
Carsten
also ich bastle derzeit an einer Scanner-Abfrage (welche fertig ist) und habe zum Testen viele Barcodes , die ich als Dynamisches Bild Anzeigen lasse und nach jedem Scan vorgang Zählt eine Zahl hoch und ändert so das Bild.
Meine Frage jetzt kann ich dieses Dynamische Bild in der Userform Anzeigen, über ein Active X Steuerelement (BILD) bekomme ich es nur hin wenn ich das Bild von Hand lade.
Private Sub UserForm_Initialize()
Blenden.Image1.Picture = Tabelle13.Image1.Picture
End Sub
If Len(TextBox1.text) = TextBox1.MaxLength Then
'Application.SendKeys "{TAB}"
..... Springt wieder in die Textbox und löscht Inhalt.... ner Scan..
Bzw. Kann ich vlt mein dynamisches Bild Names "DataMatrix"in der Userform Anzeigen lassen, oder über einen Umweg erstmal ins Steuerelement in der Tabelle laden.
PS. So lade ich mir die Bilder für das dynamische Bild. KANN ich diesen Code so ändern das ich Image1-Image8 (Steuerelemente) befülle?
Sub GraphicfileInZelleEinfuegen()
Dim strPfad As String
Dim strDatei As String
Dim Zeile As Long
Dim Spalte As Long
Dim wksTabelle As Worksheet
Dim shpNeu As Object
Dim Pfad As String
Dim shp As Shape
For Each shp In ActiveSheet.Shapes
If shp.TopLeftCell.Column = 14 Then shp.Delete
Next shp
Spalte = 14
Set wksTabelle = ActiveWorkbook.Worksheets("Tabelle11")
Pfad = "C:\Users\ADMIN\Desktop\Neuer Ordner\"
strPfad = Pfad
For Zeile = 1 To 8
jFile = "Code" & Cells(Zeile, "I") & ".png"
strDatei = jFile
If Right(strPfad, 1) "\" Then strPfad = strPfad & "\"
Set shpNeu = wksTabelle.Pictures.Insert(strPfad & strDatei)
shpNeu.Top = wksTabelle.Rows(Zeile).Top
shpNeu.Height = wksTabelle.Rows(Zeile).Height
shpNeu.Left = wksTabelle.Columns(Spalte).Left
shpNeu.Width = wksTabelle.Columns(Spalte).Width
Next
End Sub