---

ActiveX.jpg

Heute brauche ich auch mal wieder Eure Hilfe.
Ich habe ein Teil, das aus vielen Konfigurationen besteht und schon seit mind. 15 Jahren gewachsen ist.
Neuerdings bekomme ich beim Öffnen dieses Teils immer ein Fenster mit dem Hinweis:
"ActiveX-Objekte werden aktualisiert"
Was ist das und wie kann ich das abstellen?

------------------
Kein Mensch ist so beschäftigt, dass er nicht die Zeit hätte, jedem zu erzählen, wie beschäftig er ist.

SWX 2017 SP4 / DBWorks R16 SP 1.9
Office 2017
Windows 10 Pro 64 bit
Dell Precision T3600
Intel Xeon E5
16 Gb RAM
NVIDIA Quadro M2000
Space Pilot Pro

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

---

Gemäss S-04781

Zitat:

---

The ActiveX update message is a Windows OLE message.  When an OLE object is placed in a drawing, part, etc, and linked, or when the file is moved to a new location, Windows automatically updates the link, resulting in the message “Updating ActiveX objects.”  Problems can arise if the file has been moved and the old location is no longer accessible. 

For example, a linked Excel table was moved from Server A to Server B.  If Server A is turned off or disabled, when the SolidWorks document is opened, Windows tries to ask Server A where the file has been moved to. If Server A is not running to tell it where it has moved, the search 'times out' or gives up looking.

---

[EDIT]
Hier noch ein Makro um alle Ole-Objekte aus einer SWX-Datei zu entfernen.

Code:

---

Sub main()
    Dim swApp                      As SldWorks.SldWorks
    Dim swModel                    As SldWorks.ModelDoc2
    Dim swModelDocExt              As SldWorks.ModelDocExtension
    Dim nOleCnt                    As Integer
    Dim vOleObjs                    As Variant
    Dim oleobjoptions              As Integer
    Dim swOleObj                    As SldWorks.SwOLEObject
    Dim i                          As Integer
    Dim bRet                        As Boolean
   
    Set swApp = Application.SldWorks
    Set swModel = swApp.ActiveDoc
    Set swModelDocExt = swModel.Extension
       
    swModel.ClearSelection2 True
   
    ' Count OLE items
    nOleCnt = swModelDocExt.GetOLEObjectCount(oleobjoptions)
    If 0 = nOleCnt Then Exit Sub
   
    ' Get OLE items
        vOleObjs = swModelDocExt.GetOLEObjects(oleobjoptions)
    ' Delete each OLE items
    For i = 0 To nOleCnt - 1
        Set swOleObj = vOleObjs(i)
        bRet = swOleObj.Select(True)
    Next i
   
    bRet = swModel.DeleteSelection(False)

End Sub

---

[/EDIT]

------------------
21 ist nur die halbe Antwort.

[Diese Nachricht wurde von HenryV am 11. Jan. 2018 editiert.]

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

---

whow... Danke. Bin mir da zwar keiner Änderung bewußt, aber..
Nach Ausführen des Makros ist die Meldung weg.

Vielen, vielen DANK!!
 

------------------
Kein Mensch ist so beschäftigt, dass er nicht die Zeit hätte, jedem zu erzählen, wie beschäftig er ist.

SWX 2017 SP4 / DBWorks R16 SP 1.9
Office 2017
Windows 10 Pro 64 bit
Dell Precision T3600
Intel Xeon E5
16 Gb RAM
NVIDIA Quadro M2000
Space Pilot Pro

[Diese Nachricht wurde von rawo am 11. Jan. 2018 editiert.]

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