Programatically changing the picture on a command button

[JONeill]

Trying to toggle an image on a command button for sort direction. I keep getting a type mismatch.

currentPath = ActiveWorkook.Path
cmdSort.Picture = currentPath & "\sortAsc.gif"

Double checked the file name just to be sure.

 

[tlowry]

Here is some code that might help.

Check out the LoadPicture to do the loading of the image on the CommandButton.

Private Sub CommandButton1_Click()
Dim picks
Static marker As Integer
picks = Array("c:\Documents\GH Up.jpg", "c:\Documents\GH Down.jpg")
Select Case marker
Case 0
marker = 1
Case 1
marker = 0
Case Else
marker = 0
End Select
CommandButton1.Picture = LoadPicture(picks(marker))
End Sub

 

[JONeill]

Worked like a charm. Thanks!