blog.furas.pl
# prywatne notatki - Python, Linux, Machine Learning, etc.

Przełączanie widoku w CorelDraw za pomocą makro w VBA

Makro w VBA do przełączania się między widokiem szkieletowym a rozszerzonym.
Po podpięciu do skrótu klawiszowego przyszpiesza pracę.

Sub ToggleView()

    '
    ' Przelaczanie widoku: Szkieletowy <=> Rozszerzony z Overprint
    '
    ' Moj Skrot: ALT + ` (tylda)
    '

    If ActiveWindow.ActiveView.Type = cdrEnhancedViewWithOverprints Then
        ActiveWindow.ActiveView.Type = cdrSimpleWireframeView
    Else
        ActiveWindow.ActiveView.Type = cdrEnhancedViewWithOverprints
    End If

End Sub

Strona: 1 / 1