Anzeige
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 Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Diagramm als jpg speichern

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

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
Anzeige
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
Anzeige
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
Anzeige
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
;

Forumthreads zu verwandten 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
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
Anzeige
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
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
Anzeige
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
Teil einer Excel-Tabelle als .jpg speichern
irene dallinger
Ich möchte gerne in einem Makro einen Teil einer Excel-Tabelle als .jpg speichern.
Kann mir da wer helfen?
28.09.2006 12:54:40
Thread-ID: 806324
6 Beiträge
Anzeige
Gültigkeitsprüfungen werden nicht abgespeichert
Matthias

Hallo Normalerweise habe ch mit Excel keine Problrmr bzw. kann sie nach kurzer Zeit selber lösen. _ Dieses Mal jedoch stellt mich Excel vor ein sehr großes Rätsel. Ich habe ein Excel-Sheet, dass sich von Spalte A bis ET sowie von Zeile 1 bis 577 bewegt. Innerhalb diesem Sheet soll zwischen S...
02.08.2007 13:01:00
Thread-ID: 893026
2 Beiträge
Gültigkeitsprüfungen werden nicht abgespeichert
Matthias

Hallo Normalerweise habe ch mit Excel keine Problrmr bzw. kann sie nach kurzer Zeit selber lösen. Dieses Mal jedoch stellt mich Excel vor ein sehr großes Rätsel. Ich habe ein Excel-Sheet, dass _ sich von Spalte A bis ET sowie von Zeile 1 bis 577 bewegt. Innerhalb diesem Sheet soll zwischen S...
02.08.2007 13:11:00
Thread-ID: 893033
3 Beiträge
Checkboxen werden nicht gespeichert
Stefan

Hallo meine Lieben
Habe heute gleich zwei Probleme.
1. Ich füge über eine Prozedur Checkboxen in Userform ein. Nach Schließen und erneutem öffnen der UF sind Checkboxen weg.
Wie stelle ich es an, das alle erstellten Steuerelemente nach schließen in UF bleiben?
2. Ich habe in...
07.01.2008 21:27:39
Thread-ID: 939506
5 Beiträge
Dateiänderungen werden nicht gespeichert
David

Hallo zusammen,
eher ein allgemeines Excel-Problem:
Ich habe festgestellt, dass bei Dateien, die ich durch einen Hyperlink in einer Excel-Datei öffne, beim Schließen keine Abfrage zum Speichern kommt. Wenn ich das nicht manuell vorher mache, sind alle Änderungen verloren, da die Datei d...
04.04.2008 07:33:27
Thread-ID: 965875
4 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

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