EXCEL - VBA - Picture-Problem

Re(2): EXCEL - VBA - Picture-Problem

SunnyHill — Wed, 29 Oct 2008 06:33:40 GMT

Super....das Einfache ist halt doch oft so fern

Zwar funktionierte auch die 1x1-gif Variante, jedoch ist das die richtige und effizientere Sache

@hariw:
------
Sub Bild_Einladen()

sel = Range("k1").Value
Reihe = "H" & sel + 1

Bild = Range(Reihe).Value

If Bild = "" Then Bild = 0

Pfad = Application.ThisWorkbook.Path
Pfad = Pfad & "\Fotos\" & Bild & ".jpg"

If Dir(Pfad, vbNormal) = "" Then
  Pfad = Application.ThisWorkbook.Path
  Tabelle3.Range("E4").Value = "Kein Bild gefunden!"
'  Tabelle3.LiBi2.Picture = LoadPicture(Pfad & "\Fotos\dummy.gif")
'  Tabelle2.LiBi.Picture = LoadPicture(Pfad & "\Fotos\dummy.gif")
  Tabelle3.LiBi2.Picture = LoadPicture("")
  Tabelle2.LiBi.Picture = LoadPicture("")
  MsgBox "Das dazugehörige Bild konnte nicht gefunden werden!", vbCritical, "Ladefehler!"
  Exit Sub
End If

Sheets("Personen").Select
Tabelle3.Range("E4").Value = sel
Tabelle3.LiBi2.Picture = LoadPicture(Pfad)
Tabelle2.LiBi.Picture = LoadPicture(Pfad)

End Sub
-------
LiBi und LiBi2 sind ins Excel-Worksheet eingefügte Picture-Objekte, welche ich eben so bezeichnet habe.

Danke an Thing und hariw; die haben mir schon öfters geholfen

Re: EXCEL - VBA - Picture-Problem

Thing — Tue, 28 Oct 2008 16:54:19 GMT

So schon probiert?

Tabelle2.LiBi.Picture = LoadPicture("")

Re: EXCEL - VBA - Picture-Problem

hariw — Tue, 28 Oct 2008 14:38:17 GMT

hi,

wo wird das img angezeigt? im sheet? was is libi?
kann den code nicht nachvollziehen - könntest ein wenig mehr posten?

lg,
hariw

Re(2): EXCEL - VBA - Picture-Problem

SunnyHill — Tue, 28 Oct 2008 12:18:14 GMT

hmmm...gute Idee

Gibts trotzdem keine andere Möglichkeit das "picture" auf "leer" zu setzen?

Re: EXCEL - VBA - Picture-Problem

Ardjan — Tue, 28 Oct 2008 12:07:21 GMT

Was passiert wenn du ein1x1 großer GIF ladest am Ende?

EXCEL - VBA - Picture-Problem

SunnyHill — Tue, 28 Oct 2008 11:57:19 GMT

Hallo zusammen

Habe eine Datei in Excel gezimmert, in welcher per ListBox-Auswahl ein entsprechendes Bild angezeigt wird. Funktioniert auch soweit ganz gut...
Nur habe ich das Problem, dass das letzte angezeigte Bild beim Schließen der Datei immer mit der Datei mitgespeichert wird, und dass soll nicht sein.

Habe leider bis dato keine Möglichkeit gefunden, das Bild beim Schließen der Datei vorher aus der Image-Eigenschaft "LiBi" zu löschen.

Weiß jemand wie das geht?

Nachfolgend ein Code-Schnipsel zum Laden der Pics und Beenden
---------
Sub Bild_Einladen()
.
.
Pfad = Pfad & "\Fotos\" & Bild & ".jpg"
.
Tabelle2.LiBi.Picture = LoadPicture(Pfad)

End Sub

Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
Tabelle2.LiBi.Delete '?????????
ActiveWorkbook.Close Savechanges:=False
End Sub
---------

Danke, SunnyHill