Add Task Pane View Example (VBA)

This example shows how to add a tab to the Task Pane.

'---------------------------------------------------------------------------
' Preconditions:
' 1. Create bitmaps in 6 pixel sizes:
'    20 X 20
'    32 X 32
'    40 X 40
'    64 X 64
'    96 X 96
'    128 X 128
' 2. Replace the bitmap array elements in the macro to full pathnames of
'    these bitmap files.
'
' Postconditions:
' 1. Examine the Task Pane.
' 2. Displays a tab on the Task Pane with an image that is appropriate for
'    the current screen resolution or operating system scale.
'---------------------------------------------------------------------------

Option Explicit

Dim swApp As SldWorks.SldWorks
Dim ctrl As SldWorks.TaskpaneView
Dim bitmap(5) As String
Dim toolTip As String

Sub main()

     Set swApp = Application.SldWorks

     bitmap(0) = "20x20_bitmap_pathname"

     bitmap(1) = "32x32_bitmap_pathname"

     bitmap(2) = "40x40_bitmap_pathname"

     bitmap(3) = "64x64_bitmap_pathname"

     bitmap(4) = "96x96_bitmap_pathname"

     bitmap(5) = "128x128_bitmap_pathname"

    toolTip = ""
    Set ctrl = swApp.CreateTaskpaneView3(bitmap, toolTip)   

End Sub