---

Hallo Forum,

wollte mal nachhaken, ob mir jemand weiterhelfen kann bzgl. obiges Thema?
Es gibt ja dieses 5 PropertySet "Content Library Component Properties {B9600981-DEE8-4547-8D7C-E525B3A1727A}",
aber was muss ich nun hinzufügen, so dass das Bauteil als Bibliotheksteil "anerkannt" wird und nicht mehr veränderbar ist?
DisableCommandTypes nutze ich ja schon ;-), aber das ist anscheinend nicht alles oder?

Danke + Grüße
Olaf

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

---

Code:

---

Public Sub Bibliotheksteil_selbstgemacht()
    If ThisApplication.ActiveDocumentType <> kPartDocumentObject Then Exit Sub
   
    Dim oPart As PartDocument
    Set oPart = ThisApplication.ActiveDocument
    oPart.SubType = "{9C88D3AF-C3EB-11D3-B79E-0060B0F159EF}"
    oPart.Save
   
    Dim sFileName As String
    sFileName = oPart.FullFileName
   
    oPart.Close True
    Call ThisApplication.Documents.Open(sFileName)
End Sub

---

------------------
Grüße daywa1k3r

FX64 Software Solutions
Mold&More Software Solutions

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

---

Vielen Dank daywa1k3r.

Ich gehe mal davon aus, dass das Hinzufügen des 5 PropertySets ausreicht ;-) oder?

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

---

Zitat:

---

Original erstellt von 0laf:
Vielen Dank daywa1k3r.

Ich gehe mal davon aus, dass das Hinzufügen des 5 PropertySets ausreicht ;-) oder?

---

Nein. Eben so wie es oben steht. Der SubType muss geändert werden.

------------------
Grüße daywa1k3r

FX64 Software Solutions
Mold&More Software Solutions

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

---

OK, das war ein Schnellschuß von mir :-). Nun hab ich es kapiert. Danke nochmals.

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