Bei der Verwendung von benutzerdefinierten Blattformaten funktionierte die standardmäßige Beschriftung mit A0, A1, usw. nicht mehr. Der IV knallt mir unbarmherzig auch zur Weihnachtszeit nur die Beschriftung benutzerdefiniertes Format hinein. Wie kann ich den IV dazu bringen das die in den Arbeitsblattformaten hinterlegte Beschriftung erscheint, z.B A3x4 usw..
Public Sub benBlattformat()
Dim oDrawDoc As DrawingDocument
On Error Resume Next
If ThisApplication.ActiveDocumentType = kDrawingDocumentObject Then
Set oDrawDoc = ThisApplication.ActiveDocument
If oDrawDoc.ActiveSheet.Size = kCustomDrawingSheetSize Then
MsgBox ("benutzerdefiniertes Blattformat = " & kCustomDrawingSheetSize)
End If
End If
End Sub
Mit diesem o.g. Makro kann ich ermitteln das es ein benutzerdef. Format ist, ABER wie bekommen ich den Namen des Arbeitsblattformates ermittelt?
------------------
gruß
robby
Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP