title image


Smiley Diagramm als Objekt auf Tabellenblatt oder als eigenes Batt platzieren
Hey malvinas,



ich bin zwar nicht sicher ob Du mit "Grösse des Diagramms" dessen Position meinst, aber diese könntest Du mit folgendem Makro umschalten :

      

'Ändert die Platzierung des aktuellen Diagrammobjektes :

'von "Objekt auf Tabellenblatt" zu Diamgrammblatt

'und umgekehrt

Sub DiagrammPlatzieren()

    If ActiveSheet.Type = -4167 Then

        'Diagrammobjekt auf Tabellenblatt => Diagrammblatt

        If ActiveSheet.ChartObjects.Count > 0 Then

            Set diagramm = ActiveSheet.ChartObjects(1).Chart

            diagramm.Location Where:=xlLocationAsNewSheet

        Else

            MsgBox "Kein Diagrammobjekt gefunden !"

        End If

    Else

        'Diagrammblatt => Diagrammobjekt auf Tabellenblatt

        ActiveChart.Location Where:=xlLocationAsObject, _

            Name:="Tabelle1" 'Name des Tabellenblattes anpassen

        ActiveChart.Deselect

    End If

End Sub 

Es wird für das 1.Diagramm des Blattes zwischen der Position als Objekt auf dem Tabellenblatt und einem eigenen Diagrammblatt gewechselt. Den Namen des gewünschten Tabellenblattes musst Du entsprechend anpassen.



Gruß, JerryB
Bezeichnungen der Elemente eines Excel XP Fensters (Bild, ca. 170 KB).

geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: