title image


Smiley Re: knifflig..! Chartgrösse über Pkt.-Diagonale bestimmen
Hoi Karin, vielen Dank für Deinen Tipp!

generiert bei mir einen LaufzeitFehler > Methode Range für Obj. Worksheet nicht...usw. Habe in der Zwischenzeit versucht über Zellendistanzen Höhe & Breite zu ermitteln und diese Werte in Deinen 2. + 3. Tipp eingepflegt mit ersten Erfolgszeichen.

Gruss, Paul



Private Sub Worksheet_Activate()



Dim spA As Long 'Spaltenpos. für Chart-L

Dim zeI As Long 'Zeileenpos. für Chart-L

Dim cH As Long 'Charthöhe in Anzahl Zeilen

Dim cB As Long 'Chartbreite in Anzahl Spalten

Dim disH As Integer 'Distanz Höhe

Dim disB As Integer 'distanz Breite



spA = 4 'Spalte 4 = D

zeI = 10 'Zeile 10

cH = 12 'Chart-Höhe in Zeilen

cB = 6 'Chart-Breite in Spalten

disH = Cells(zeI + cH, spA).Top - Cells(zeI, spA).Top 'Distanz-Berechnung der Höhe

disB = Cells(zeI, spA + cB).Left - Cells(zeI, spA).Left 'Distanz-Berechnung der Breite



With ActiveSheet.ChartObjects(1)

.Top = Cells(zeI, spA).Top

.Left = Cells(zeI, spA).Left

.Height = disH

.Width = disB

End With



Cells(zeI - 1, spA - 1).Select



End Sub





geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: