---

eblattformat.png

Ich habe zwar schon einen Code gefunden hier:
http://ww3.cad.de/foren/ubb/Forum258/HTML/001286.shtml#000003

Jedoch funktioniert der bei mir nicht
Was muss ich denn ändern das er funktioniert?

Code:

---

        Dim sBlattformat As String
        Dim eBlattformat As DrawingSheetSizeEnum
        MsgBox oDoc.Sheets.Item(1).Size
        eBlattformat = oDoc.Sheets.Item(1).Size
       
        Select Case eBlattformat
            Case kCustomDrawingSheetSize: oOptions.Value("Remove_Line_Weights") = 0 'sBlattformat = "Custom"
            'Case kADrawingSheetSize: sBlattformat = "A"
            'Case kBDrawingSheetSize: sBlattformat = "B"
            'Case kCDrawingSheetSize: sBlattformat = "C"
            'Case kDDrawingSheetSize: sBlattformat = "D"
            'Case kEDrawingSheetSize: sBlattformat = "E"
            'Case kFDrawingSheetSize: sBlattformat = "F"
            Case kA0DrawingSheetSize: oOptions.Value("Remove_Line_Weights") = 1 'sBlattformat = "A0"
            Case kA1DrawingSheetSize: oOptions.Value("Remove_Line_Weights") = 1 'sBlattformat = "A1"
            Case kA2DrawingSheetSize: oOptions.Value("Remove_Line_Weights") = 1 'sBlattformat = "A2"
            Case kA3DrawingSheetSize: oOptions.Value("Remove_Line_Weights") = 0 'sBlattformat = "A3"
            Case kA4DrawingSheetSize: oOptions.Value("Remove_Line_Weights") = 0 'sBlattformat = "A4"
            'Case k9x12InDrawingSheetSize: sBlattformat = "9x12"
            'Case k12x18InDrawingSheetSize: sBlattformat = "12x18"
            'Case k18x24InDrawingSheetSize: sBlattformat = "18x24"
            'Case k24x36InDrawingSheetSize: sBlattformat = "24x36"
            'Case k36x48InDrawingSheetSize: sBlattformat = "36x48"
            'Case k30x42InDrawingSheetSize: sBlattformat = "30x42"
        End Select

---

[Diese Nachricht wurde von axi92 am 18. Sep. 2013 editiert.]

[Diese Nachricht wurde von axi92 am 18. Sep. 2013 editiert.]

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Ich habe keine Ahnung was das war oder was ich jetzt geändert habe aber so geht es jetzt

Code:

---

        Dim sBlattformat As String
        Dim eBlattformat As DrawingSheetSizeEnum
        'MsgBox oDoc.Sheets.Item(1).Size
        eBlattformat = oDoc.Sheets.Item(1).Size
       
        Select Case eBlattformat
            Case kCustomDrawingSheetSize: oOptions.Value("Remove_Line_Weights") = 0 'sBlattformat = "Custom"
            'Case kADrawingSheetSize: sBlattformat = "A"
            'Case kBDrawingSheetSize: sBlattformat = "B"
            'Case kCDrawingSheetSize: sBlattformat = "C"
            'Case kDDrawingSheetSize: sBlattformat = "D"
            'Case kEDrawingSheetSize: sBlattformat = "E"
            'Case kFDrawingSheetSize: sBlattformat = "F"
            Case kA0DrawingSheetSize: oOptions.Value("Remove_Line_Weights") = 1 'sBlattformat = "A0"
            Case kA1DrawingSheetSize: oOptions.Value("Remove_Line_Weights") = 1 'sBlattformat = "A1"
            Case kA2DrawingSheetSize: oOptions.Value("Remove_Line_Weights") = 1 'sBlattformat = "A2"
            Case kA3DrawingSheetSize: oOptions.Value("Remove_Line_Weights") = 0 'sBlattformat = "A3"
            Case kA4DrawingSheetSize: oOptions.Value("Remove_Line_Weights") = 0 'sBlattformat = "A4"
            'Case k9x12InDrawingSheetSize: sBlattformat = "9x12"
            'Case k12x18InDrawingSheetSize: sBlattformat = "12x18"
            'Case k18x24InDrawingSheetSize: sBlattformat = "18x24"
            'Case k24x36InDrawingSheetSize: sBlattformat = "24x36"
            'Case k36x48InDrawingSheetSize: sBlattformat = "36x48"
            'Case k30x42InDrawingSheetSize: sBlattformat = "30x42"
        End Select

---

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP