Live-Forum - Die aktuellen Beiträge
Datum
Titel
19.04.2024 19:41:34
Bei VBA Ausführung Anzeige einfrieren
19.04.2024 17:05:40
Zählen von Zeilen, in denen in bestimmten Bereich Daten sind
19.04.2024 16:34:52
gemeinsamer Filter über drei Spalten
19.04.2024 15:39:42
Exceltabelle daten per combobox zu word Datei
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
640to644
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
640to644
640to644
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Diagramm als jpg speichern

Diagramm als jpg speichern
21.07.2005 17:00:23
anja
Hallo, vielleicht kann mir jemand helfen...
Ich möchte ein Diagramm per Macro als jpg abspeichern.
Beim Stöbern habe ich dafür auch schon einen Befehl gefunden.
Aber offensichtlich fehlt dabei was, auf jedem Fall funktioniert es bei mir nicht.
Worksheets("Tabelle1").ChartObjects(1).Chart.Export Filename:= "test.jpg", FilterName:="JPG"
Weiss Jemand was daran falsch ist?
Danke schon mal
Anja

13
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Diagramm als jpg speichern
21.07.2005 17:06:43
Nepumuk
Hi,
welche Fehlermeldung?
Gruß
Nepumuk
Excel & VBA – Beispiele
AW: Diagramm als jpg speichern
21.07.2005 17:08:30
Leo
Hi,
der Code ist ok. Was passiert denn, wird ein Fehler gemeldet?
mfg Leo
AW: Diagramm als jpg speichern
21.07.2005 17:12:08
anja
Also eigentlich passiert gar nix, das Macro läuft weiter und macht auch fast alles was es sonst noch so machen soll.
Nur das Diagramm wird nicht gespeichert.
Anja
AW: Diagramm als jpg speichern
21.07.2005 17:24:12
Leo
Hi,
da kein Pfad angegeben ist, wird das Bild ins aktuelle Verzeichnis kopiert, hast du da mal nachgeschaut? Sonst keine Idee, woran es liegen könnte.
mfg Leo
AW: Diagramm als jpg speichern
21.07.2005 17:32:08
anja
Also das aktuelle Verzeichnis ist doch aus dem ich zuletzt eine Datei geöffnet habe oder?
Da ist es auf jeden Fall nicht zu finden. Und über die Suchen Funktion habe ich auch nichts gefunden.
Kann das was mit ChartObject(1) zu tun haben, als genauer gesagt mit der 1?
Anja
Anzeige
AW: Diagramm als jpg speichern
21.07.2005 17:33:35
Leo
Hi,
lad die Problemmappe mal abgespeckt hoch.
mfg Leo
AW: Diagramm als jpg speichern
21.07.2005 17:47:35
anja
Hier Teile des Makros
Sub
' Öffnen 1 Fenster
Dim myFileName1 As Variant
Dim wbSource As Workbook
Dim Zeile&, MySatz, ErsterSatz$
ErsterSatz = "Row No."
myFileName1 = Application.GetOpenFilename("Text files, *.txt")
If myFileName1 = False Then Exit Sub 'user hit cancel
'Datei öffnen Report aus GeneSight
Workbooks.OpenText Filename:=myFileName1, Origin:=xlWindows, _
StartRow:=1, DataType:=xlDelimited, TextQualifier:= _
xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=True, Semicolon:=False, _
Comma:=False, Space:=False, Other:=False, FieldInfo:=Array(Array(1, 1), _
Array(2, 1), Array(3, 9), …………………………….
…….

'Graphik erstellen in neues Workbook M= log2(Cy5/Cy3) A=Log2(Cy5*Cy3)/2
Dim Workbookname As String
Workbookname = Application.ActiveWorkbook.Name
Columns("A:F").Select
'Scatterplot 1
Charts.Add
ActiveChart.ChartType = xlXYScatter
ActiveChart.SetSourceData Source:=Sheets("Tabelle1").Range("H4")
ActiveChart.SeriesCollection.NewSeries
ActiveChart.SeriesCollection(1).XValues = "=Tabelle1!R2C2:R10369C2"
ActiveChart.SeriesCollection(1).Values = "=Tabelle1!R2C1:R10369C1"
ActiveChart.Location Where:=xlLocationAsObject, Name:="Tabelle1"
With ActiveChart
.HasTitle = True
.ChartTitle.Characters.Text = “Scatterplot1”
.Axes(xlCategory, xlPrimary).HasTitle = True
.Axes(xlCategory, xlPrimary).AxisTitle.Characters.Text = "log2 (Wurzel(Cy5*Cy3))"
.Axes(xlValue, xlPrimary).HasTitle = True
.Axes(xlValue, xlPrimary).AxisTitle.Characters.Text = "log2(Cy5/Cy3)"
End With
ActiveChart.ApplyDataLabels Type:=xlDataLabelsShowNone, LegendKey:=False
'Diagrammfläche ohne Farbe
ActiveChart.PlotArea.Select
Selection.Interior.ColorIndex = xlNone
'Speichern
Worksheets("Tabelle1").ChartObjects(1).Chart.Export Filename:=-MAPlot1 + ".jpg", FilterName:="JPG"

Anzeige
AW: Diagramm als jpg speichern
21.07.2005 17:55:15
Ramses
Hallo
woher kommt die Variable
-MAPlot1
?
Zudem, wenn du den Code mehrmals laufen lässt, handelt es sich nicht mehr um ChartObjects(1). Die Zahl wird automatisch generiert und tritt nur beim ersten durchlauf auf.
Schreib mal in die erste Zeile deines Moduls !!
Option Explicit
Vielleicht kommst du der Sache dann schneller auf die Spur
Gruss Rainer
Gruss Rainer
AW: Diagramm als jpg speichern
21.07.2005 18:02:54
anja
Danke erst mal für die Bemühungen
MA-Plot wird in dem Teil definiert den ich rausgelassen habe:
Dim MAPlot1 As String
MAPlot1 = Left(Range("A1"), (7)) + "MA-Plot-Low"
Ich denke daran liegt es nicht.
Was bedeutet option explicit?
Weisst Du vielleicht wie man das Problem mit der Zahl von ChartObject umgehen kann,
z.B. dass immer das aktive Diagramm gespeichert wird?
Gruss Anja
Anzeige
AW: Diagramm als jpg speichern
21.07.2005 18:08:59
anja
Vielen vielen Dank!!!
Mit ActiveChart.Export "test.jpg", "JPG"
hat es funktioniert. Lag wohl doch an der Nummerierung.
Mich würde aber trotzdem noch interessieren was option explicit bedeutet
Gruss Anja
AW: Diagramm als jpg speichern
21.07.2005 18:12:06
Nepumuk
Hi,
damit wird die deklaration der verwendeten Variable erzwungen. Hift gegen Schreibfehler und mach damit Fehlersuchen viel einfacher.
Gruß
Nepumuk
Excel & VBA – Beispiele
AW: Diagramm als jpg speichern
21.07.2005 18:24:20
anja
Danke!!!
AW: Diagramm als jpg speichern
21.07.2005 18:01:20
Nepumuk
Hi,
benutze doch einfach am ende deines Makros:
ActiveChart.Export "test.jpg", "JPG"
Gruß
Nepumuk
Anzeige

305 Forumthreads zu ähnlichen Themen

screenshot als JPG speichern
heike

Hallo experten,
ich suche eine VBA - Lösung um einen Screenshot zu erzeugen und diesen als JPG abzuspeichern.
Eine Lösung, um eine BMPdatei zu speicher habe ich bereits (sieh unten).
Danke Nepumuk.
Am besten währe genau dieser Ansatz, weil ich das Bild beschneiden kann.
Nur...
16.12.2008 20:47:09
Thread-ID: 1033426
2 Beiträge
Anzeige
Diagramme als jpg speichern!
schlati

Hi,
geht das IRGENDWIE? Wenn man´s als Webseite speichert, macht er n Gif draus, aber das sieht qualitativ leider sehr schlecht aus.
Hat jemand dazu evtl. ne Idee?
01.08.2002 21:49:11
Thread-ID: 143867
6 Beiträge
Bereich als jpg speichern Fehler
Heino

Moin zusammen
Ich habe ein Problem mit einem Makro das ich hier im Formum gefunden habe.
Wenn ich das Makro ausführe erhalte ich ein leeres jpg.
Wenn ich aber einen Haltepunkt auf die Zeile objChrt.Paste setzt und das Markro durchlaufen lasse dann funktioniert es.( Also starten, wen...
10.08.2016 12:16:59
Thread-ID: 1508627
2 Beiträge
Anzeige
Tabelle+Diagramm als hochauflösendes jpg speichern
Martin

Guten Morgen liebe Excelfreunde,gleich zum Wochenbeginn eine kleine Frage. Wie kann ich eine ganze Excelseite (Tabelle +Diagramm) als jpg speichern, so daß ich das verkleinerte Bild (lesbar!) in eine Powerpointpräsentation einarbeiten kann. Der Weg über ALT+DRUCK und dann in Photoshop bearbeite...
14.04.2003 10:07:39
Thread-ID: 244655
7 Beiträge
Wie mit VBA die PrintScreen-Taste deaktivieren?
Stephan
Hallo!
Ich möchte gerne verhindern, dass von einem Tabellenblatt eine Bildschirm-Hardcopy mit Hilfe der Tasten [ALT]+[Druck] bzw. [ALT]+[PRTSCR] erstellt werden kann.
Habe es schon mit Application.OnKey "{PRTSC}", "" und Application.OnKey "%{PRTSC}", "" versucht - Excel beschwert sich nicht,...
11.07.2003 13:17:19
Thread-ID: 279833
5 Beiträge
Symbolleisten-Änderungen werden nicht gespeichert
Frankenstein

Hallo,

ich habe Office 97 auf Windows 2000 installiert und habe das Problem, dass der bei einem Standard-User (Domäne) keinerlei Änderungen in der Symbolleiste gespeichert werden, d.h. wenn Excel neu gestartet wird, sind die Änderungen verschwunden. Hat jemand eine Lösung ?

Dank...
12.08.2003 10:55:39
Thread-ID: 293412
3 Beiträge
zwei Diagramme als jpg speichern
Gipper
Hallo zusammen,

ich habe in einem Tabellenblatt zwei Diagramme ("Chart 3" und "Chart 2") und eine Textbox ("Merkmalsbezeichnung"). Diese drei Objekte möchte ich automatisch über ein Makro in einem JPG abspeichern. Mit dem Befehl

Worksheets("QRKs").ChartObjects(1).Chart.Export
Fil...
31.10.2003 12:37:30
Thread-ID: 331567
2 Beiträge
Formate werden nicht gespeichert
Dagmar
Habe eine umfangreiche Tabelle mit vielen bedingten Formatierungen.

Beím Speichern bekomme ich nun die Meldung, dass die Formatierungen nicht gespeichert werden können.

Gibt es eine Möglichkeit, Excel doch zum Speichern zu bewegen,
Dagmar
06.11.2003 20:51:39
Thread-ID: 334538
3 Beiträge
Anzeige

Links zu Excel-Dialogen

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
1
2
5
1
1
6
4
2
1
2
5
1
2
7
4
3
5
6
4
4
6
33
4
5
2