Doc Properties

 

Home
Nach oben

Last Update 20.07.2004

Copyright  2003
Ramses (C)

 

Erstellt auf der aktiven Folie ein Textfeld mit den in den Dokumenteigenschaften definierten Einträgen:

 

Sub Read_Properties()

'Variable Deklaration

Dim myPropText As String

myPropText = ""

'Eigenschaften auslesen

For i = 1 To 9

      'Nur Eigenschaften auslesen wo auch was drin steht

      If myPropText & ActivePresentation.BuiltInDocumentProperties.Item(i) <> "" Then

              myPropText = myPropText & ActivePresentation.BuiltInDocumentProperties.Item(i) & Chr$(13)

      End If

Next i

ActiveWindow.Selection.SlideRange.Shapes.AddLabel(msoTextOrientationHorizontal, 10, 10, 15, 40).Select

ActiveWindow.Selection.ShapeRange.TextFrame.TextRange.Characters(Start:=1, Length:=0).Select

With ActiveWindow.Selection.TextRange

        'Deine Dokumenteigenschaften

        .Text = myPropText

        With .Font

               .Name = "Arial"

               .Size = 18

               '.Bold = msoFalse

        '.Italic = msoFalse

        '.Underline = msoFalse

        '.Shadow = msoFalse

   End With

End With

End Sub