title image


Smiley Re: Diagramm vergrößern und verkleinern
Hi Matthias,



meinst du diesen Code



Sub Diagramm1_BeiKlick()

Dim ch As Chart

Set ch = ActiveSheet.ChartObjects("Diagramm 1").Chart

If ch.Parent.Height = 199.5 Then

ch.Parent.Height = 300

ch.Parent.Width = ch.Parent.Height * 1.4

Else

ch.Parent.Height = 199.5

ch.Parent.Width = ch.Parent.Height * 1.4

End If

Set ch = Nothing

End Sub



GrußformelBeverly's Excel - Inn

geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: