Live-Forum - Die aktuellen Beiträge
Datum
Titel
17.10.2025 17:57:35
Zellen-Name aus A1 nach H1 übertragen mit Prä- + Suffix
17.10.2025 11:36:58
verschachteltes Dropdown-Menü
17.10.2025 10:28:49
Call Anweisung
16.10.2025 18:38:17
Zusammenfassung nach Personalnummer
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
204to208
204to208
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Diagramm vergroessern

Forumthread: Diagramm vergroessern

Diagramm vergroessern
19.01.2003 15:54:04
Addi80
Hallo,

ich habe mir ein makro aufgezeichnet um ein Diagramm in Tabelle3 zu vergroessern.
ActiveSheet.Shapes("Diagramm 2").ScaleWidth 1.38, msoFalse, _
msoScaleFromBottomRight

Nun wollte ich dieses makro auch auf das Diagramm in Tabelle4 anwenden aber er bringt mir eine Fehlermeldung wegen ("Diagramm 2").
Wie kann ich den Code so abaendern, dass ich ein unabhaengiges makro bekomme d.h. dass es fuer alle Tabellenblaetter geht?

Oder anders gefragt wie kann ich per VBA ein Diagramm in einem Tabellenblatt vergroessern??

danke fuer eure Hilfe schon im Voraus

mfg Addi

Anzeige

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
Re: Diagramm vergroessern
19.01.2003 17:56:12
L.Vira
Du meinst sicher, ein Makro, das du auf alle Diagramme anwenden kannst, unabhängig von deren Namen?
Re: Diagramm vergroessern
19.01.2003 18:07:48
Addi80
richtig genau das meine ich, da ja immer ein bezug zum diagramm besteht. den will ich aber nicht haben bzw umgehen
Re: Diagramm vergroessern
19.01.2003 19:12:09
L.Vira
Option Explicit
Sub Diagramm()
Dim DIA As Shape, x As Integer
Dim L As Single, T As Single, W As Single, H As Single
L = 10
T = 10
W = 200
H = 150
For x = 1 To ActiveSheet.Shapes.Count
If ActiveSheet.Shapes(x).Type = 3 Then
Set DIA = ActiveSheet.Shapes(x)
With DIA
.Left = L
.Top = T
.Width = W
.Height = H
End With
End If
L = L + W
Next
Set DIA = Nothing
End Sub

Anzeige
DANKE hat prima geklappt danke danke o.T.
20.01.2003 01:39:05
Addi80
.
;

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige