Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
788to792
788to792
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

diagramm in userform code anpassen

Forumthread: diagramm in userform code anpassen

diagramm in userform code anpassen
09.08.2006 11:00:24
achim
Hallo excel freunde
habe freundlicherweise eine tolle hilfestellung von hans herber bezüglich eines digramms in userform bekommen.habe versucht das auf mein problem umzusetzten.leider komme ich nicht so wirklich weiter da mir das vba wissen noch fehlt.
wer kann sich diese beispielsdatei anschauen und den code so anpassen wie die grafik in tabellenblatt "PRÜFUNGSFRAGEN1"
danke
achim h.
https://www.herber.de/bbs/user/35670.xls
Anzeige

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: diagramm in userform code anpassen
09.08.2006 12:30:58
Alwin
Hallo,
ich habe das mal angeschaut, dabei ist mir aufgefallen, dass der Datenbereich der im Diagramm ausgegeben werden soll nicht stimmte! (siehe unten)
nachdem ich es korrigiert hatte funktionierte es!
Option Explicit

Sub DiagrammInUserForm()
Dim cht As Chart
Dim sFile As String
sFile = Application.Path & "\test.gif"
Set cht = Charts.Add
Application.ScreenUpdating = False
cht.SetSourceData _
Source:=Sheets("Prüfungsbogen1").Range("G8:AA9"), _
PlotBy:=xlRows
cht.Export sFile
With frmChart.imgChart
.Picture = LoadPicture(sFile)
End With
frmChart.Show
Kill sFile
Application.DisplayAlerts = False
cht.Delete
Application.DisplayAlerts = True
Application.ScreenUpdating = True
End Sub

Anzeige
AW: diagramm in userform code anpassen
09.08.2006 12:50:07
achim
Hallo Alwin
danke für die rückmeldung
Ganz viel Wald und man sieht nicht den Baum!!
eine zusatzfrage bitte!!
ich möchte das die säule nicht blau sondern rot
und die achse nicht 0 0,2 usw.
hast du eine idee wie man das ändern kann?
danke
achim h.
AW: diagramm in userform code anpassen
10.08.2006 12:17:21
Alwin
Hallo Achim,
ich konnte leider nur die Sache mit der Farbe herausfinden (auch übers Archiv):
(Erweiter Deinen Code einfach um die mittlere Zeile)
PlotBy:=xlRows
cht.SeriesCollection(1).Interior.ColorIndex = 3
cht.Export sFile
Anzeige
Danke für deine Mühe
10.08.2006 13:28:08
achim
danke
;

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Anzeige