Bilder in Userform einfügen
18.06.2008 23:46:00
Jens
Ich habe zu Hause Excel 2007 und möchte ein Bild, dass ich in einer Arbeitsmappe hinterlegt habe dynamisch in eine Userform einfügen.
Das funktioniert soweit auch gut aber in der Uni wird nur Excel 2003 genutzt hier startet an der Stelle der Debugger
If Dir("C:\Test", vbDirectory) = "" Then
MkDir ("C:\Test")
End If
Dim chDiagramm As ChartObject
Dim shBild As Shape
Dim varBild As Variant
Application.ScreenUpdating = False
Set shBild = Worksheets("Bilder").Shapes(bt)
shBild.CopyPicture Appearance:=xlScreen, Format:=xlPicture
Set chDiagramm = Worksheets("Bilder").ChartObjects.Add(0, 0, shBild.Width, shBild.Height)
With chDiagramm.Chart
.Paste
.Export Filename:="C:\Test\Bild.JPG", FilterName:="JPG"
End With
chDiagramm.Delete
If Not Bauteil.Image4.Picture Is Nothing Then
Bauteil.Image4.Picture = Nothing
End If
Bauteil.Image4.Picture = LoadPicture("C:\Test\Bild.JPG")
DoEvents
Kill "C:\Test\Bild.JPG"
Set chDiagramm = Nothing
Set shBild = Nothing
Bauteil ist der Name der Userform
bt ist der Name des Bildes, dass eingefügt werden soll.
Der Code ist auch nicht von mir sondern auch nur aus dem Forum. Bis zu der stelle, an der der Ordner C:\Test erstellt wird arbeitet des Programm auf jeden Fall, also muss das Problem weiter hinten liegen. Ich habe schon probiert, mit den Codewörtern Shape und Picture zu variieren aber ohne Erfolg.
Ich hoffe ihr könnt mir weiterhelfen und danke schonmal im vorraus.
Lg
Jens