Noch offen: Bilder werden nur mit Haltepunkt
17.12.2005 15:52:20
egon
Wer kann mir bitte helfen? Ich probiere schon Tage mit versch. Codes usw....
Ich möchte in einer Schleife Bilder mit der jeweiligen Ivnr Nummer einladen-anzeigen. Das gelingt mir nur wenn ein Haltepunkt gesetzt ist.Das Bildfeld habe ich mit der Steuerelement Toolbox in das Tabellenblatt eingefügt.
Am Ende der
Sub wird immer das letzte Bild angezeigt.
Wie kann ich mit Code einen Haltepunkt "Simulieren" obs dann geht.
Fehlt mir ein Refresh Tabellenblatt o.Ä.?
Sub Bilder()
Sheets("Formular").Activate
Dim objshape As Object
Dim Countdown As Integer
Dim name As String
Dim i As Integer
Dim Anzahl As Integer
If Worksheets("Tabelle2").Range("A2").Value = "" Then Exit Sub
Anzahl = Worksheets("Formular").Range("M3").Value
Countdown = Val(TextBox3.Text)
For i = 0 To Anzahl
Countdown = Countdown - 1
Worksheets("Formular").Range("N3") = Countdown
'### Daten von Tabelle2 in Tabelle3 (Formular) einfügen #############
Worksheets("Formular").Range("Firma") = Worksheets("Tabelle2").Range("M2")
Worksheets("Formular").Range("Kst") = Worksheets("Tabelle2").Range("C2")
Worksheets("Formular").Range("Abtbau") = Worksheets("Tabelle2").Range("N2")
Worksheets("Formular").Range("Bezeichnung") = Worksheets("Tabelle2").Range("F2")
Worksheets("Formular").Range("Ivnr") = Worksheets("Tabelle2").Range("D2")
Worksheets("Formular").Range("Fabrnr") = Worksheets("Tabelle2").Range("E2")
'###### Bild einfügen #############################################
' Worksheets("Formular").Image1.Picture = ""
Dim fn As String
name = Worksheets("Formular").Range("Ivnr").Value & ".jpg"
If Dir("D:\Daten\Harald\Prüfblätter\" & name) = "" Then
'nicht gefunden:
fn = "D:\Daten\Harald\Prüfblätter\leer.jpg"
Else
fn = "D:\Daten\Harald\Prüfblätter\" & name
End If
Worksheets("Formular").Image1.Picture = LoadPicture(fn)
'################### Pause ##################################
Application.Wait (Now + TimeValue("0:00:02"))
Next i
End Sub
Schönes Wochenende
Egon