Live-Forum - Die aktuellen Beiträge
Datum
Titel
16.04.2024 15:16:53
Summen mit verschiedenen Variablen
16.04.2024 14:29:30
Matrixkonstanten als Quelle für Gültigkeit und Steuerelement
16.04.2024 13:54:06
Multiplikation
16.04.2024 12:41:11
Vielleicht Onur ? Leider werden nicht alle Monate
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1500to1504
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
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 Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

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ß

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... :(

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

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: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

302 Forumthreads zu ähnlichen 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
Anzeige
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
Balken Diagramm mit positiven und negativen werten
tobias

Hi,
ich habe ein Balkendiagramm mit drei Kategorien, und absoluten Werten.
Ein Wert ist hierin negativ, was dazu führt dass es mir das ganze Diagramm derhaut und lediglich noch eine Kategorie dargestellt wird.
Wenn ich es prozentual darstelle gibt es kein Problem nur bei absoluten z...
14.10.2009 16:34:53
Thread-ID: 1109640
4 Beiträge
Anzeige
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
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
Diagramm in Userform anzeigen
mikey20

HI
ich habe hier schon viel Hilfe für das anzeigen der Diagramme in der
Userform erhalten. Mein dank gilt an alle aber insbesondere beverly.
Jetzt habe ich eine wahrscheinliche Lösung gefunden.
Ich habe die anzuzeigenden Diagramme in ein neues Tabellenblatt kopiert
das aber...
09.11.2013 14:11:53
Thread-ID: 1337894
11 Beiträge
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
Anzeige

Links zu Excel-Dialogen

ComboBox Label

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige
Archiv - Verwandte Themen
Forumthread
Beiträge
3
4
3
3
4
6
14
6
10
2
1
1
10
1
1
2
2
1
2
6
2
2
2
4
5