Live-Forum - Die aktuellen Beiträge
Datum
Titel
29.04.2024 17:40:50
Formel Index mit Vergleich kombiniert mit Addition
29.04.2024 17:11:06
Exce-Diagramm Datenwerte sinnvoll kürzen ('tausender)
29.04.2024 16:28:49
ZÄHLEWENNS: Suchbereich enthält Wort aus Zelle B2
29.04.2024 16:25:39
Anzahl Zeilen in Zelle ermitteln
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1884to1888
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
1884to1888
1884to1888
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

VBA Diagramm Namen zuweisen

VBA Diagramm Namen zuweisen
14.06.2022 10:42:52
David
Hallo zusammen,
Ich habe über die Makro Aufnahme ein Diagramm erstellt und formatiert. Wenn ich diese ein zweites mal abspielen möchte, hängt er sich auf bei der Diagramm Ansprache. Wie könnte ich das so einbauen, dass ein Diagramm mit einem bestimmten Namen erstellt wird, sodass ich es immer über den Namen ansprechen kann.
Beim Aufzeichnen wird das "Diagramm 1" erstellt. Wenn ich die Makro nochmal abspielen lasse, erstellt er "Diagramm 2" und hängt sich auf weil mit "Diagramm 1" programmiert wurde.
Hoffe mein Problem ist klar geworden.
Hier ein Ausschnitt:
Range("G2:G16").Select
ActiveSheet.Shapes.AddChart2(216, xlBarClustered).Select
ActiveChart.SetSourceData Source:=Range("Tabelle1!$G$2:$G$16")
ActiveChart.Axes(xlValue).Select
Selection.Delete
ActiveSheet.ChartObjects("Diagramm 1").Activate
ActiveChart.Legend.Select
Selection.Delete
ActiveSheet.ChartObjects("Diagramm 1").Activate
ActiveChart.ChartTitle.Select
Selection.Delete
Danke für jede Hilfe :)

7
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: VBA Diagramm Namen zuweisen
14.06.2022 11:02:02
Nepumuk
Hallo David,
teste mal:

Public Sub Test()
Dim objChart As Chart
Set objChart = ActiveSheet.Shapes.AddChart2(216, xlBarClustered).Chart
With objChart
Call .SetSourceData(Source:=Range("Tabelle1!$G$2:$G$16"))
.HasAxis(xlValue, xlPrimary) = False
.HasLegend = False
.HasTitle = False
End With
Set objChart = Nothing
End Sub
Gruß
Nepumuk
AW: VBA Diagramm Namen zuweisen
14.06.2022 14:19:34
David
Hey Nepmuk,
Ich versuch damit mal weiter zu arbeiten, lieben Dank :)
Grüße
AW: VBA Diagramm Namen zuweisen
14.06.2022 14:26:07
David
Hey Nepumuk,
also habe so alles hinbekommen, mir fehlt nur noch die Größe, bzw. Begrenzung.
Das Diagramm soll zwischen I1:M16 begrenzt werden.
Wie könnte ich das noch einbauen?
Riesen Dank dir für die Hilfe.
David
Anzeige
AW: VBA Diagramm Namen zuweisen
14.06.2022 14:35:51
Nepumuk
Hallo David,
so:

Option Explicit
Public Sub Test()
Dim objChart As Chart
Set objChart = ActiveSheet.Shapes.AddChart2(216, xlBarClustered).Chart
With objChart
Call .SetSourceData(Source:=Range("Tabelle1!$G$2:$G$16"))
.HasAxis(xlValue, xlPrimary) = False
.HasLegend = False
.HasTitle = False
With .Parent
.Left = Columns(9).Left
.Top = 0
.Width = Range("I1:M16").Width
.Height = Range("I1:M16").Height
End With
End With
Set objChart = Nothing
End Sub
Gruß
Nepumuk
AW: VBA Diagramm Namen zuweisen
14.06.2022 12:25:01
Beverly
Hi David,
dem gerade erstellten Diagramm kannst du den Namen wie folgt zuweisen:

With ActiveSheet.Shapes.AddChart2(216, xlBarClustered)
.Name = "MeinDiagramm" '
Bis später
Karin
Anzeige
AW: VBA Diagramm Namen zuweisen
14.06.2022 14:28:49
David
Hey Karin,
ich probiere mich gleich daran, damit weiter zu arbeiten.
Vielen Dank :)
David
AW: VBA Diagramm Namen zuweisen
14.06.2022 14:58:19
David
Hey nochmal,
das hat super geklappt und alle weiteren Schritte waren echt einfach.
Danke und liebe Grüße
David

14 Forumthreads zu ähnlichen Themen

Bilddatei mit neuem Namen speichern
egonkernien

Hallo wer hilft bitte?
Guten Abend.
Ich möchte eine Dialogbox aufrufen, dort eine Bilddatei auswählen.
Ich möchte diese Bilddatei in ein Image1 auf einer Userform laden. Z.B. D:\Daten\Bilder\DSC0011.jpg
Dann diese Bilddatei umbenennen in D:\Daten\Test\082008_01.jpg, abspeichern...
28.08.2008 22:32:28
Thread-ID: 1005608
5 Beiträge
Anzeige
BILD einfügen in Image mit Namen
Sebastian
Ich habe folgendes Problem. Ich möchte in ein Image-Objekt ein Bild einfügen.
Das Bild habe ich in ein Excelblatt eingefügt und mit Bild1 benannt.
Weiß vielleicht jemand den Quellcode dafür, würde mich sehr freuen.
Gruß Seba
20.11.2003 16:31:31
Thread-ID: 341356
4 Beiträge
Bild in Image einfügen mit Namen
Seba
Danke Nepumuk,
ich brauche eher den Quellcode wie man ein Bild in ein Image einfügt.
Mit Pfadangabe funktioniert es so:

Image1.Picture = LoadPicture("c:\....

Aber ich muß es ohne Pfadeingabe haben.
Deswegen füge ich die Bilder in ein Excelblatt ein und beschrifte sie mit nam...
20.11.2003 19:29:07
Thread-ID: 341449
2 Beiträge
Anzeige
Existiert ein Bild mit dem Namen??
Robert

Hab Das Problem das ich ein Vorhandenes Logo auf mehrern Tabellen ersetzen möchte.
Funktioniert ganz gut nur:....
Wenn das Bild mit dem Namen "Logo" nicht existiert bricht er ab.
Möchte rausfinden ob das Shape ("Logo") existiert wenn ja dann soll die If schleife Durchlaufen werden w...
26.10.2004 17:09:35
Thread-ID: 507005
2 Beiträge
Diagramm in PPT einfügen und Shapename ändern
Jannik

Hallo zusammen,
ich brauch eure Hilfe. Ich habe es geschafft das Diagramm von Excel in PowerPoint einzufügen. Nur leider wird es danach schwer das Shape- Objekt anzusprechen, da jedesmal wenn das alte Diagramm gelöscht wird und das neue Diagramm eingefügt wird es neu heißt. Gibt es eine Mög...
31.08.2018 16:04:57
Thread-ID: 1642652
2 Beiträge
skalierung größenachse lässt sich nicht ändern
schon

Hallo, vielleicht liegt es ja nur am Sekt, den wir zum Weihnachtsbrunch hatten...
Habe ein simples Liniendiagramm mit 2 Zahlenreihen erstellt. Bei einer Reihe gehen die Zahlen gegen Null, daher schmiegt sich die Linie an die Rubrikenachse. Damit es anschaulicher wird, möchte ich die Skalier...
15.12.2009 16:34:42
Thread-ID: 1123765
2 Beiträge
Tabellenblattreiter lässt sich nicht ändern | Herbers Excel-Forum
Josef_T
Guten Tag zusammen,
ich kann in keiner! Tabelle mehr den Tabellenblattreiter bearbeiten. Egal ob ich mit der linken
oder rechten Maustaste darauf klicke, aktiviere ich nur immer das ganze Blatt.
kann mir bitte jemand einen Tipp geben, wie ich meine Tabellenblattreiter wieder editieren...
23.01.2010 20:19:29
Thread-ID: 1132376
6 Beiträge
Makro-Sicherheit lässt sich nicht ändern
NoNet

Hallo VBA-Experten,
ich habe auf meinem PC unter Excel 2003 SP3 seit einiger Zeit das Problem, dass sich Änderungen der Makro-Sicherheit ("Extras - Makros - Sicherheit") nicht mehr dauerhaft ändern lassen.
D.h. : Ich kann zwar die Sicherheitsstufe und auch die Optionen im Register "Vert...
08.03.2010 15:40:14
Thread-ID: 1144340
20 Beiträge
Anzeige

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
4
3
3
1
1
1
1
1
5
19
11
3
11
1