topic Re: Can I pass on a point as a parameter to sub or function in VBA Forum

Can I pass on a point as a parameter to sub or function

parikhnidi — Thu, 05 Mar 2020 15:21:38 GMT

Hi Friends,

A new comer here. I am trying to write a sub where one of the parameter is a point.

Public Sub DrawBoltPattern(Location(0 to 2) as Double, XCount as Integer, XDistance as Double, YCount as Interger, YDistance as Double, RotationAngle As Double)

Some code goes here.

End Sub

Here is location is a point variable that will be processed in the sub to calculate various points. What parameter type should be declared in the sub deinition.

Thanks,

Nimish

Re: Can I pass on a point as a parameter to sub or function

Ed__Jobe — Thu, 05 Mar 2020 15:59:22 GMT

This works.

Sub pointTest() Dim pt(0 To 2) As Double pt(0) = 0# pt(1) = 1# pt(2) = 2# ptTest (pt) End Sub Sub ptTest(Point As Variant) MsgBox " pt(x) = " & Point(0) & vbCr & _ " pt(y) = " & Point(1) & vbCr & _ " pt(z) = " & Point(2) End Sub

Re: Can I pass on a point as a parameter to sub or function

parikhnidi — Thu, 05 Mar 2020 17:18:19 GMT

Thanks for the quick response. I got the following error message ☹️-

Duplicate declaration in current scope.

I am experimenting something from Excel and entire code is within Excel VBA environment. On a command click event in excel I am collecting information from various Excel cells into the local variable. And then I am calling a sub which is is defined as a public procedure.

Nimish

Re: Can I pass on a point as a parameter to sub or function

norman.yuan — Thu, 05 Mar 2020 17:27:11 GMT

Sub pointTest() Dim pt(0 To 2) As Double pt(0) = 0# pt(1) = 1# pt(2) = 2# ptTest (pt) End Sub

should be:

Sub pointTest() Dim pt(0 To 2) As Double pt(0) = 0# pt(1) = 1# pt(2) = 2# ptTest pt End Sub

Re: Can I pass on a point as a parameter to sub or function

parikhnidi — Thu, 05 Mar 2020 17:58:54 GMT

Never mind. I found the typo.

Thanks all for your inputs.

Nimish