Is het mogelijk om de document.eigenschappen weer te geven in de sheet zelf?

[Rianneke]

Binnen Excel heb je de mogelijkheid om allerlei document-eigenschappen in te vullen. Via "Office-knop" -> "voorbereiden" -> eigenschappen.

Is het mogelijk om de waarden die ik daar invul gelijk te tonen in een cel ?

 

[cow18]

met behulp van VBA

rw = 1
Worksheets(1).Activate
For Each p In ActiveWorkbook.BuiltinDocumentProperties
    Cells(rw, 1).Value = p.Name
    rw = rw + 1
Next

 

[Warme bakkertje]

Deze geeft je ineens de door jou ingevulde eigenschappen

Sub lijst()
On Error Resume Next
rw = 1
Worksheets(1).Activate
For Each p In ActiveWorkbook.BuiltinDocumentProperties
    Cells(rw, 1).Value = p.Name
    Cells(rw, 2) = ActiveWorkbook.BuiltinDocumentProperties(rw)
    rw = rw + 1
Next
End Sub

 

[Rianneke]

Kan het ook zonder visual basic code?

Jammer dat het via visual basics moet. Ik had gehoopt op een simpele oplossing net zoals je de betreffende velden in word ook zo makkelijk kunt opnemen.

Zijn er nog alternatieven?

 

[Warme bakkertje]

Voor zover ik weet bestaat er binnen XL geen functie die deze eigenschappen weergeeft en zal je het met VBA moeten doen. Alhoewel ik graag van het tegendeel bewezen wordt.

 

[Rianneke]

Jammer, maar VBA werkt. Thanks

Jammer, ik had een simpele oplossing verwacht.
Maar inmiddels heb ik de VBA geimplementeerd en werkend. Bakkertje en Cow18 bedankt! :thumb: