title image


Smiley Re: "Serien"-Diagramme ändern ihre Größe und Position der Legende
Hi Herbert,



vielleicht könnte dieser Code Abhilfe schaffen

Sub shapes_groesse_anpassen()

Dim chrt1 As Shape

Dim chrt2 As Shape

Dim inDiagramme As Integer

Set chrt1 = ActiveSheet.Shapes(1)

For inDiagramme = 1 To ActiveSheet.ChartObjects.Count

Set chrt2 = ActiveSheet.Shapes(inDiagramme)

With chrt2

.Height = chrt1.Height

.Width = chrt1.Width

End With

Set chrt2 = Nothing

Next inDiagramme

Set chrt1 = Nothing

End Sub

Die Maße der Diagrammfläche eines Ausgangsdiagramms (1) werden auf alle anderen Diagramme der activen Tabelle übertragen.

GrußformelBeverly's Excel - Inn

geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: