Hallo
Meines Wissens gibt es keine API dafür, aber du kannst die Buttons über die API aufrufen.
Code:
Private Sub Isolate()Dim oApp As Application
Set oApp = ThisApplication
Dim oControlDef As ControlDefinition
Set oControlDef = oApp.CommandManager.ControlDefinitions.Item("AssemblyIsolateCmd")
oControlDef.Execute
End Sub
Private Sub Unisolate()
Dim oApp As Application
Set oApp = ThisApplication
Dim oControlDef As ControlDefinition
Set oControlDef = oApp.CommandManager.ControlDefinitions.Item("AssemblyIsolateUndoCmd")
oControlDef.Execute
End Sub
------------------
MfG
Ralf 
Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP