---

Ich möchte mit einem Makro per Tastenkombi einen Makrotest zum Bearbeiten öffnen. Ist das möglich?
Hoffe jemand hat es verstanden was ich will  

[Diese Nachricht wurde von 4kspeed am 01. Sep. 2017 editiert.]

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

---

Wenn es unbedingt per Tastenkombination sein soll: SendKeys

Da dieser Befehl aber mehr Scherereien macht, als er Nutzen hat (Stichwort Caps-Lock z.B.), führe ich Makros aus Makros heraus immer per RunMacro2 aus.

Gruß, Jens

------------------
CSWA, CSWP, CSWPA-SM & -SU =)

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

---

Makro_bearbeiten.png

Hallo CAD-Maler, ich habe schon einen Tastenkombination zugewiesen (ALT+Num+) siehe Anhang.

Es kommt ein Explorerfenster zum .swp öffnen, wo ich dann noch durch den Unterordner klicken muss um meinen Testmakro öffnen zu wollen.

Ich möchte aber gleich in das "Microsoft Visual Basic for Applications" editieren, da meine Pfade sehr lang sind.

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

---

Ahhh. Jetzt hab ich verstanden, was du willst. 

Ich würde mir dazu das Test-Makro als Button in die Menüleiste legen oder eben mit einer Tastenkombi versehen und direkt am Anfang des Test-Makros ein 'Stop' einfügen.

Code:

---

Sub main()

    Stop
   
    Set swApp = Application.SldWorks

...

---

Damit geht er beim Makro-Ausführen direkt in den Editor in den Debug-Modus (den man dann einfach beendet und damit das Makro im Editor hat). Den Stop kannst du ja später wieder rausnehmen.

Gruß, Jens

------------------
CSWA, CSWP, CSWPA-SM & -SU =)

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

---

Der Test-Makro führt einfach aus, Debugger bzw. Editor will nicht öffnen 

Hier der komplette Code

Code:

---

  Dim swApp                  As SldWorks.SldWorks
    Dim swModel                As SldWorks.ModelDoc2
    Dim sPathName              As String
    Dim nErrors                As Long
    Dim nWarnings              As Long
    Dim nRetval                As Long
    Dim bShowMap                As Boolean
    Dim bRet                    As Boolean

Sub main()

Stop

    Set swApp = Application.SldWorks
    Set swModel = swApp.ActiveDoc

    sPathName = swModel.GetPathName
    sPathName = Left(sPathName, Len(sPathName) - 6)
    sPathName = sPathName + "pdf"

    swApp.SetUserPreferenceToggle swpdfDontShowMap, False

    bRet = swModel.SaveAs4(sPathName, swSaveAsCurrentVersion, swSaveAsOptions_Silent, nErrors, nWarnings)

    If bRet = False Then
        nRetval = swApp.SendMsgToUser2("Problems saving file.", swMbWarning, swMbOk)
    End If

    ' Restore showing of map
    swApp.SetUserPreferenceToggle swpdfDontShowMap, bShowMap

End Sub

---

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

---

Dann bin ich erstmal raus. Habe es jetzt grade mit deinem Code probiert und das Makro bleibt zuverlässig beim Ausführen beim Stop stehen und öffnet den Editor. Und zwar egal, ob ich das als Button ablege oder per Tastenkombi starte.

Der einzige Grund, der mir dazu einfällt, wäre, wenn das Projekt gesperrt (Passwortgeschützt) ist. Dann wird das Stop (sinnvollerweise) ignoriert. Ebenso Debug.Print und Debug.Assert.

Gruß, Jens

------------------
CSWA, CSWP, CSWPA-SM & -SU =)

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