Wie ist die Grösse eines Worksheets mit VBA ermittelbar?

29/03/2009 - 20:51 von Sebastian Lange | Report spam
Hallo,

Ich versuche mit VBA auf dem PageSetup Property eines Worksheets
die Höhe und Breite des druckbaren Bereichs zu ermitteln
aber ich finde nichts was auch nur ansatzweise darauf hindeutet.

Weiss hier evtl. jemand wie's geht ?


Viele Grüsse
Sebastian
 

Lesen sie die antworten

#1 Andreas Killer
30/03/2009 - 18:23 | Warnen spam
Sebastian Lange schrieb:

Ich versuche mit VBA auf dem PageSetup Property eines Worksheets
die Höhe und Breite des druckbaren Bereichs zu ermitteln
aber ich finde nichts was auch nur ansatzweise darauf hindeutet.


Wenn Du nur Zellen hast dann ist es simpel das:

Private Sub Workbook_BeforePrint(Cancel As Boolean)
'Druckbereich bis zur letzten Zelle einstellen
Dim R As Range
Set R = ActiveSheet.UsedRange
ActiveSheet.PageSetup.PrintArea = R.Address
End Sub

Hast Du noch andere Objekte (Diagramme / Linien / Buttons) im Sheet
hast, dann musst Du die Shapes-Auflistung durchklappern und jedes
Shape abfragen ob es a.) gedruckt werden soll und b.) sichtbar ist.

An die Koordinaten jedes Shapes kommst Du über .OLEFormat.Object dort
findest Du u.a. .TopLeftCell und .BottomRightCell

Andreas.

Ähnliche fragen