Anzeige eines Diagramms in Userform image unscharf
05.10.2005 09:22:44
Horst
nachdem ich durch Eure Hilfe endlich eine Voransicht eines Diagramms in die Userform image einbinden konnte, zeichnet sich leider ein neues Problem ab. Die Darstellung der Legende bzw. zum Teil auch der Achsen ist sehr unscharf, so dass man leider nur mit viel Rätseln den Inhalt deuten kann. Meine Frage: Habe ich innerhalb der Prozedur etwas verkehrt gemacht, das solche Probleme erklärt, oder ist dafür das exportierte Bildformat *.gif verantwortlich (mit jpeg nicht besser)? Habe auch schon an anderem rechner und Bildschirm gearbeitet, Problem tauchte ebenfalls auf. Mein Diagramm ist auf einer Größe von ca. 500 x 700 zu sehen, also ausreichend groß und kein Mäusekino.
Horst
Angefügt ist der Quellcode für das Diagramm: (mit ' ist bei mir optional)
Sub SubVorschau()
'Erstellen des Diagramms
Dim Dateiname
Dim Diagramm As Chart
' Wenn UserForm angezeigt wird
'
Private Sub UserForm_Activate() ' Hier auch anderer Name möglich, evtl . muß Userform wirklich aktiviert werden
'Zuordnen des Diagramms auf einen Namen
Set Diagramm = Sheets("Dia_CityGate")
'Diagramm.Parent.Width = nameuserform.Width ' manuelles Festlegen der Weite
'Diagramm.Parent.Height = nameuserform.Height
'Festlegen des neuen Verzeichnisses und Dateinamen nach dem Export
Dateiname = ThisWorkbook.Path & Application.PathSeparator & _
"diagramm.gif"
'Exportieren des Diagramms mit den Daten
Diagramm.Export Filename:=Dateiname, FilterName:="GIF"
'Einlesen des Bildes in schon aktivierte userform
'nameuserform.Picture = LoadPicture(Dateiname)
With frm_Eingabemaske
.img_Vorschau.Picture = LoadPicture(Dateiname)
.img_Vorschau.PictureSizeMode = fmPictureSizeModeZoom 'Zoomt Bild runter
'.Show 'Vielleicht nicht erforferlich
End With
'Kill Dateiname
End Sub