---

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

---

Zitat:

---

Original erstellt von McBain05:
... ist es nicht möglich über VBA Informationen in die Dateiinfo zu schreiben? ...

---

Ich verschiebe diesen Thread mal in das dafür vorgesehene IV-VBA-Forum.

------------------
Michael Puschner
Autodesk Inventor Certified Expert
Mensch und Maschine Scholle GmbH

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

---

Schrau dir mal das an:
OLE Structured Storage Classes
http://www.mvps.org/emorcillo/en/code/grl/storage.shtml

Da kann man eigene Storages erstellen, aber auch auf die Dateiinfos zugreifen!

mfg

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