Hallo Zusammen,
ist es nicht möglich über VBA Informationen in die Dateiinfo zu schreiben?
In Excel ist die ja auch über:
ThisWorkbook.BuiltinDocumentProperties(5) = "Mein Titel"
möglich.
Wir bräuchten das bei uns für die AV, die ohne IV Arbeitet und im Explorer gleich die Blattgröße erkennen soll.
Die Blattgröße in die iProperties zu schreiben ist nicht das Problem:
-------------------------------------------------------------------------------
Dim zeichnung As DrawingDocument
Set zeichnung = ThisApplication.ActiveDocument
Dim blatt As Sheet
Set blatt = zeichnung.ActiveSheet
Dim Blattab As String
Blattab = blatt.Height & " x " & blatt.Width
If blatt.Width = "21" Then
Blattab = "A4"
End If
If blatt.Width = "42" Then
Blattab = "A3"
End If
If blatt.Width = "59,4" Then
Blattab = "A2"
End If
If blatt.Width = "84,1" Then
Blattab = "A1"
End If
If blatt.Width = "118,9" Then
Blattab = "A0"
End If
On Error Resume Next 'wenn Blattgröße schon vorhanden
zeichnung.PropertySets("{D5CDD505-2E9C-101B-9397-08002B2CF9AE}").Add Blattab, "Blattgröße"
zeichnung.PropertySets("{D5CDD505-2E9C-101B-9397-08002B2CF9AE}").Item("Blattgröße").Value = Blattab
---------------------------------------------------------------------------------------------------------
Aber wie schon erwähnt, ich möchte diese Information in die Dateiinfo schreiben.
Bin über jede Hilfe Dankbar
Gruß
McBain05
Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP