Passing multiple variables to button .onaction

**cougman30** · 10-25-2012, 04:56 PM

I am having a problem trying to pass multiple variables to a button's .OnAction call. I want to be able to pass multiple variables to the .OnAction property of a button.

This code works when I want to send one variable:

Dim strText as String
Dim intNumber as Integer
Dim lngLong as Long

shpBar.OnAction = "'Button_Click """ & strText & """'"

I want to be able to pass all 3 variables into the Button_Click call for each button that I have. I have been trying many different syntaxes and have not been able to get it to work properly. How would I be able to pass "strText, intNumber, lngLong" variables to the .OnAction call?

Thanks for the help

**Andy Pope** · 10-26-2012, 06:03 AM

To avoid confusing quotes try this approach.

Sub AssignOnAction()
    
    Dim shpTemp As Shape
    Dim strArg1 As String
    Dim lngArg2 As Long
    Dim strArg3 As String
    
    strArg1 = Chr(34) & "My Name" & Chr(34)
    lngArg2 = 999
    strArg3 = Chr(34) & "Display This" & Chr(34)
    
    Set shpTemp = ActiveSheet.Shapes(1) ' adjust for relevant button shape

    shpTemp.OnAction = "'Button1_Click " & strArg1 & "," & lngArg2 & "," & strArg3 & "'"

End Sub

Sub Button1_Click(Arg1, Arg2, Arg3)

    MsgBox Arg1 & " " & Arg2, vbInformation, Arg3
    
End Sub