AW: Diagramm in User form anzeigen lassen
15.08.2013 17:45:35
Beverly
Hi,
und wie groß soll das Diagramm angezeigt werden?
In diesem Codeteil wird die Breite und Höhe des Bildsteuerelementes im UserForm festgelegt - derzeit die selbe Breite wie im Tabellenblatt:
.Image1.Width = Diagramm.Parent.Width
.Image1.Height = Diagramm.Parent.Height
und in diesem Codeteil (aus meinem Beitrag) wird die Breite des UserFoms in Abhängigkeit von der Breite des Bildsteuerelementes festgelegt (+ 15 damit links und rechts eine kleine freie Fläche bleibt; kann man auch weglassen wenn das Userform die selbe Breite wie das Steuerelement haben soll)
.Width = .Image1.Width + 15
Hier wiederum wird die Höhe des UserForms in Abhängigkeit von der Höhe des Bildsteuerelementes und der Höhe des CommandButtons + 40 (damit ein kleiner Rand unterhalb frei bleibt) festgelegt:
.Height = .Image1.Height + 40 + .cmdOK.Height
Diese Werte musst du an deine Wunschvorstellungen anpassen. Allerdings musst du dann auch die Position des CommandButton per code festlegen, denn er sollte ja sicher nicht mitten im Diagramm liegen. Das kannst du mit den folgenden beiden (zusätzlichen) Zeilen lösen:
.cmdOK.Top = .Image1.Top + .Image1.Height + 10
.cmdOK.Left = .Width / 2 - .cmdOK.Width / 2
Man kann auch andere Dateiformate außer GIF verwenden - das musst du im Exportcode nur entsprechend festlegen (z.B. als JPG):
Dateiname = ThisWorkbook.Path & Application.PathSeparator & "diagramm.JPG"
Diagramm.Export Filename:=Dateiname, FilterName:="JPG"