Łączenie tekstu dymku z tabelą określoną w języku VBA

2D plans
1

Witam 

Chciałbym mieć możliwość zintegrowania w mojej konfiguracji makra wyboru faktu zaznaczenia opcji "Połącz tekst dymka z określoną tabelą"

Czy możesz mi powiedzieć, jaka jest kolejność w VBA?

Dziękuję


capture-coche.jpg
2

Witam. Polecenie to SetKeepLinkedToBOM

Przykład:

Option Explicit
Sub main()
Dim swApp As SldWorks.SldWorks
Dim swBOMtbl As SldWorks.BomFeature
Dim swView As SldWorks.View
Dim swModel As SldWorks.ModelDoc2
Dim swSelMgr As SldWorks.SelectionMgr
Set swApp = Application.SldWorks
Set swModel = swApp.ActiveDoc
Set swSelMgr = swModel.SelectionManager
Dim i As Long
For i = 1 To swSelMgr.GetSelectedObjectCount2(-1)
    If swSelMgr.GetSelectedObjectType3(i, -1) = swSelDRAWINGVIEWS Then
        Set swView = swSelMgr.GetSelectedObject6(i, -1)
    ElseIf swSelMgr.GetSelectedObjectType3(i, -1) = swSelBOMFEATURES Then
        Set swBOMtbl = swSelMgr.GetSelectedObject6(i, -1)
    End If
Next i
If swView Is Nothing Or swBOMtbl Is Nothing Then
    MsgBox "Sélectionner une vue et une table dans l'arbre"
    Exit Sub
End If
MsgBox "Lier la vue: " & swView.Name & vbCr & "à la table: " & swBOMtbl.Name & vbCr & swView.SetKeepLinkedToBOM(True, swBOMtbl.Name)
End Sub

 

1 polubienie
3

Dziękuję za odpowiedź,

Przetestuję to tak szybko, jak to możliwe.