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

versch Diagramm in Userform über ComboBox anzeigen

Forumthread: versch Diagramm in Userform über ComboBox anzeigen

versch Diagramm in Userform über ComboBox anzeigen
06.07.2016 09:48:20
Marco
Hallo Gemeinde,
ich brauche Hilfe.
Ich will mir verschiedene Diagramme in einer Userform anzeigen lassen.
Die Diagramme exporterie ich als Bild wie folgt:
Worksheets("Gesamtauswertung".ChartObjects("Diagramm 1").Chart.Export _
Filename:="C:\temp\chart.gif", FilterName:="Gif"
With Image1
.PictureSizeMode = fmPictureSizeModeZoom
.Picture = LoadPicture("c:\temp\chart.gif"}
End with
Ich habe 6 Diagramme und würde sie gerne über eine ComboBox anzeigen lassen.
Wie mache ich das?
Danke Gruß

Anzeige

17
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: versch Diagramm in Userform über ComboBox anzeigen
06.07.2016 10:58:21
Beverly
Hi Marco,
und wo ist das Problem?

AW: versch Diagramm in Userform über ComboBox anzeigen
06.07.2016 10:59:57
Marco
Hatte eine Denkblockade...
ich habs nun hinbekommen.
Aber die Grafik der Diagramme is so schlecht. Gibt es da einen Trick?
Gruß

versch Diagramm in Userform über ComboBox anzeigen
06.07.2016 11:06:02
baschti007
Hey du musst die Diagramme auf Gesamtauswertung größer Ziehen
ich hätte das so gemacht 

Private Sub ComboBox1_Change()
With UserForm1.Image1
.PictureSizeMode = fmPictureSizeModeZoom
.Picture = LoadPicture("C:\chart" & ComboBox1.Text & ".gif")
End With
End Sub
Private Sub UserForm_Initialize()
Dim i As Long
For i = 1 To 6
Worksheets("Gesamtauswertung").ChartObjects("Diagramm " & i).Chart.Export Filename:="C:\chart" & _
i & ".gif", FilterName:="Gif"
ComboBox1.AddItem i
Next
End Sub

Anzeige
AW: versch Diagramm in Userform über ComboBox anzeigen
06.07.2016 14:03:25
Marco
Hmmm... bekomme da leider immer Laufzeitfehler: Zugriff verweigert bei deinem Code?

AW: versch Diagramm in Userform über ComboBox anzeigen
06.07.2016 14:28:23
Marco
Ok, auf Laufwerk C ging es nicht. Auf Laufwerk D klappt es.
Aber ich hab das Problem, dass er mir ohne Grund bei gewissen Tabellen "Ungültiges Bild" bringt.
Was kann hier schuld sein? Einmal klappt es, einmal nicht... :(

Anzeige
versch Diagramm in Userform über ComboBox anzeigen
06.07.2016 14:48:14
baschti007
Hey
Du musst dir sicher sein das du 6 Diagramme hast die auch alle den Namen haben "Diagramm 1" bis habt "Diagramm 6"
oder eine test Datei hochladen

AW: versch Diagramm in Userform über ComboBox anzeigen
06.07.2016 14:57:08
Marco
Ok ich habs!! =)
Ein Problem aber noch.
In der Combobox hab ich jetzt 1-6 als Zahl stehen.
Ich brauch hier aber einen Text :/

Anzeige
AW: versch Diagramm in Userform über ComboBox anzeigen
06.07.2016 15:14:08
Marco
Danke dir!
Kann ich die Zahlen noch in Texte ändern?
Gruß

AW: versch Diagramm in Userform über ComboBox anzeigen
06.07.2016 16:02:57
Bastian
Dann musst du
ComboBox1.text durch
ComboBox1.ListIndex + 1
ersetzen =D

Anzeige
AW: versch Diagramm in Userform über ComboBox anzeigen
06.07.2016 16:15:31
Marco
Leider haut das ganze nicht so hin.
Es funktioniert alles super, dann auf einmal nicht mehr.
Wenn ich Grafik 1 und 2 öffne gehts. Mach ich Grafik 3 auf kommt: Fehler 481: Ungültiges Bild :/
Datei im Anhang.
Ein andere User hatte das Selbe Problem:
die Lösung ist keine Lösung, sondern eher eine Umgehung eines Bugs:
Das zu exportierende Chart muss vor Export ausgewählt werden
Ein einfaches Chart.Activate- Ereignis vor der export- Methode löst mein Problem
Aber wo setzte ich den Activate?
https://www.herber.de/bbs/user/106814.xlsm
Danke für deine Hilfe!

Anzeige
AW: versch Diagramm in Userform über ComboBox anzeigen
06.07.2016 16:55:29
Bastian
Hey guck ma so ?

Private Sub ComboBox1_Change()
With UserForm5.Image1
.PictureSizeMode = fmPictureSizeModeZoom
.Picture = LoadPicture("C:\test\chart" & ComboBox1.ListIndex + 1 & ".gif")
End With
End Sub
Private Sub UserForm_Click()
End Sub
Private Sub UserForm_Initialize()
Dim i As Long
Dim x As Long
Dim wsD As Worksheet
Set wsD = Sheets("Diagramme")
For i = 1 To wsD.ChartObjects.Count
Worksheets("Diagramme").ChartObjects("Diagramm " & i).Chart.Export Filename:="C:\test\chart" &  _
_
i & ".gif", FilterName:="Gif"
Next
For x = 1 To wsD.ChartObjects.Count
ComboBox1.AddItem wsD.ChartObjects(x).Chart.ChartTitle.Characters.Text
Next x
Label2 = Date
Label4 = (Date - DateSerial(Year(Date + (8 - Weekday(Date)) Mod 7 - 3), 1, 1) - 3 + (Weekday( _
DateSerial(Year(Date + (8 - Weekday(Date)) Mod 7 - 3), 1, 1)) + 1) Mod 7) \ 7 + 1
Label5 = ActiveSheet.Range("B2").Value
End Sub

Anzeige
AW: versch Diagramm in Userform über ComboBox anzeigen
06.07.2016 17:20:52
marco
Also den Text zeigt es mir an, aber den Fehler habe ich immer noch (((
Userbild

AW: versch Diagramm in Userform über ComboBox anzeigen
06.07.2016 21:09:14
Bastian
https://www.herber.de/bbs/user/106825.xlsm
bei mir geht das komisch

Anzeige
AW: versch Diagramm in Userform über ComboBox anzeigen
06.07.2016 21:25:03
marco
Ich geh auf Maschinenstörung und dann auf Reinigen, schon kommt der Fehler...
Mach ich die Diagramme kleiner, dann geht es. Aber auch nur ein paar mal. Mussn Excel Bug sein.
Hab jetzt
Worksheets("Diagramme").ChartObjects("Diagramm " & i).Activate
integriert.
Scheint so zu funktionieren. Danke dennoch!

Anzeige
AW: versch Diagramm in Userform über ComboBox anzeigen
06.07.2016 21:51:55
Bastian
Hmm sehr komisch bei mir läuft echt alles ....
Wo hasz du das hin gepackt ? weil dein fehler kommt doch beim wechseln der combobox?
sind die Bilder auch alle richtig gespeichert nach der laden der userform ?

AW: versch Diagramm in Userform über ComboBox anzeigen
06.07.2016 22:25:57
marco
Die Bilder liegen im Ordner, aber die, die zum Absturz führen haben 0kb und können nicht angesehen werden. Änder ich die Größe der Diagramme geht es. Starte ich neu, geht es wieder nicht.
Bis jetzt funktionierts aber mit dem Activate.
For i = 1 To wsD.ChartObjects.Count
Worksheets("Diagramme").ChartObjects("Diagramm " & i).Activate
Worksheets("Diagramme").ChartObjects("Diagramm " & i).Chart.Export Filename:="C:\test\chart" &  _
_
i & ".BMP", FilterName:="BMP"
Grüße
Anzeige
;

Forumthreads zu verwandten Themen

Kurvendiagramm mit Prozenten/Eichgerade
Felix

Hallo,
ich habe jetzt schon hier im Forum gesucht, aber irgendwie passt nichts zu meiner Frage :-(! Ich will ein Diagramm erstellen mit den Prozent-Angaben 0,20,40,60,80,100,120 % auf der x-Achse. Und zusätzlich möchte ich auf der y-Achse Werte zwischen 0,05 bis 0,3 angeben.....das ganze so...
30.09.2008 19:04:00
Thread-ID: 1013466
4 Beiträge
Anzahl + und - von Prozentzahlen mit Kommas zählen
Prozentzahlen

Hallo,
ich bekomme das nicht hin. Ich sollte werte aus einer Spalte mit mehr als 2000 Zellen, welche Prozentzahlen positiv wie negativ wie z.B. -10,25%, +23,56%, -73,27% oder +33,68% usw. beinhalten. Dann sollte das ganze in 10% Schritten zusammengerafft werden können, sprich Anzahl der Zah...
09.07.2009 15:10:03
Thread-ID: 1087444
5 Beiträge
Diagramm in Userform anzeigen
Mandy

Hallo zusammen,
seit langem habe ich mal wieder ein Problem.
Ich habe Tabelle erstellt, in der ich die Gewichte meiner Kaninchen erfassen möcht und diese in einer Userform ausgeben möchte.
Dazu habe ich zunächst ein Spreadsheet erstellt und dort die Inhalte von den Spalte A (Datum)...
17.09.2009 14:19:57
Thread-ID: 1103517
4 Beiträge
Diagramm Eurowert auf Prozent Datenreihe anzeigen
rene

Hallo Zusammen
Ist es möglich sich in einem Diagramm auf der Prozent Datenreihe (Spalte E) sich einen Eurowert anzeigen zu lassen (Spalte D?
kleines Beispiel https://www.herber.de/bbs/user/81414.xls
Vielen Dank
14.08.2012 14:56:51
Thread-ID: 1275020
7 Beiträge
Diagramm in User form anzeigen lassen
mikey

Hallo
Ich habe ein Problem mit einem Diagramm in das in einer Userform angezeigt werden soll.
Das digramm befindet sich auf einer anderen Registerkarte und soll in einem
bestimmten Tabellenblatt angezeigt werden.
In der Beispieldatei funktioniert es einwandfrei, aber sobald ich...
30.09.2013 11:37:36
Thread-ID: 1332624
15 Beiträge
Anzeige
Diagramm in einer Email anzeigen, nicht als Anhang
Ralf

Hallo Forum,
ich möchte ein Diagramm via email versenden.
Ich habe im Internet diesen Code gefunden:
<pre>Sub SaveSend_Embedded_Chart()
Dim OutApp As Object
Dim OutMail As Object
Dim Fname As String
Set OutApp = CreateObject("Outlook.Application")
Set OutMa...
28.10.2013 08:26:40
Thread-ID: 1336085
7 Beiträge
Anzeige
Diagramm mit Wert und Prozentangabe
Peter

Hallo Zusammen,
ich habe zwei Werte Betriebsstörungen und Gesamtstunden pro Monat und den daraus errecheten Proozentwert. Wie kann ich im Säulendiagramm die beiden Werte und die Porzentangabe darstellen?
Siehe Beispieldatei: https://www.herber.de/bbs/user/90803.xlsx
Vielen dank vo...
23.05.2014 06:42:50
Thread-ID: 1363035
3 Beiträge
Diagramm in Userform anzeigen
ela
Hallo,
ich habe ein Diagramm gebastelt, welches den Fortschritt eines Vorgangs darstellt. Dazu habe ich einen Balken im Diagramm, welcher auf die EIngabe einer Prozentzal reagiert. Der Balken verschwindet bei 0% und ist maximal bei 100%. Der Vorgang wird durch VBA abgearbeitet. VBA gibt die Pro...
26.09.2014 12:28:54
Thread-ID: 1383529
2 Beiträge
Anzeige
Auswertung und Ansicht mittels Diagramm
Peter

Hallo Zusammen,
in der beiliegenden Datei soll nach filtern der Planergruppe Spalte D angezeigt werden wievile Datensätze es gibt und wieviel davon in den Jahren 2013/2014 pro Monat genändert worden sind (in Zahl und Prozent). Das angezeige Änderungsdatum in der Tabelle habe ich in Spalte M...
12.03.2015 14:19:04
Thread-ID: 1414631
2 Beiträge
Anzeige
Diagramm mit Werten u. Prozentangabe
Peter

Hallo Zusammen,
wie bekomme ich es hin, dass im Diagramm zu den Werten aus Zeile 2-4 auch die Prozentangaben aus Spalte 5+6 angezeigt werden? Es wäre schön wenn mir da jemand helfen könnte...Eine Beispiedatei ist anhängend..
https://www.herber.de/bbs/user/97135.xlsx
Vielen Dank vo...
17.04.2015 12:42:18
Thread-ID: 1421449
11 Beiträge
Gestapeltes Säulen Diagramm mit Prozenten
Yoo86

Hallo,
ich möchte ein Säulendiagramm erstellen, dass einerseits absolute (Umsatzwerte)gestapelt anzeigt und andererseits die prozentuale Entwicklung zeigt. Ich habe meine Vorstellung mal als Bild in die Beispieldatei eingefügt, zum bessren Verständnis. Kann man solch ein Diagramm erstellen?...
25.05.2015 17:53:31
Thread-ID: 1427673
2 Beiträge
Excel Diagramm mit + und - Bewertung
Tina

Hallo!
Ich bin auf der Suche nach einer Moeglichkeit ein Diagramm in Excel zu erstellen mit einem vorgegebenen Bewertungsszstem. Auf der Y-Achse sollten Werte von 1;1+;2-;2;2+;....;5-;5 stehen. Wenn ich die Werte mit meinen Ergebnissen in ein Diagramm einfuege uebernimmt Excel nicht die + u...
24.08.2015 14:05:52
Thread-ID: 1444094
2 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

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