Macro using a cell reference

J

Jason Falzon

I have an aplication called DPlot that can take commands from inside excel
using macros.

I managed to interact already with it using the following: -

Sub DownElevation()
'
' DownElevation Macro
' Macro recorded 24/03/2010
'

'
Channel = DDEInitiate("DPlot", "System")
DDEExecute Channel, "[ContourViewChange(,-1)]"
DDETerminate Channel

End Sub
Sub UpElevation()
'
' UpElevation Macro
' Macro recorded 24/03/2010
'

'
Channel = DDEInitiate("DPlot", "System")
DDEExecute Channel, "[ContourViewChange(,1)]"
DDETerminate Channel

End Sub
Sub LeftAzimuth()
'
' LeftAzimuth Macro
' Macro recorded 24/03/2010
'

'
Channel = DDEInitiate("DPlot", "System")
DDEExecute Channel, "[ContourViewChange(-1,)]"
DDETerminate Channel

End Sub
Sub RightAzimuth()
'
' RightAzimuth Macro
' Macro recorded 24/03/2010
'

'
Channel = DDEInitiate("DPlot", "System")
DDEExecute Channel, "[ContourViewChange(1,)]"
DDETerminate Channel

End Sub

I created a button for each macro and that works fine. But the problem is
that to acheive the disired result I have to click a lot of times on each
button. I know that I can replace the 1 and -1 with higher numbers but then
that will be too course.

I was wondering if and how I could replace the 1 and -1 numbers with cell
contents, which cells contents are controlled via a scroll bar inside excel.

I know how to use the scroll bars, but I cannot find the correct way to
declare the cells inside the macro and subsequently how to use them/their
value.
 
L

Luke M

Can you do something like:

DDEExecute Channel, "[ContourViewChange(," & Range("A2").Value & ")]"
 
J

Jason Falzon

Yes this works as it takes the value of my cell, but the problem is that I'd
like the macro to continuasly refresh so as it takes the new value
immediately, as the application calls for the cell value to change frequently
through a scroll bar.

Luke M said:
Can you do something like:

DDEExecute Channel, "[ContourViewChange(," & Range("A2").Value & ")]"

--
Best Regards,

Luke M
Jason Falzon said:
I have an aplication called DPlot that can take commands from inside excel
using macros.

I managed to interact already with it using the following: -

Sub DownElevation()
'
' DownElevation Macro
' Macro recorded 24/03/2010
'

'
Channel = DDEInitiate("DPlot", "System")
DDEExecute Channel, "[ContourViewChange(,-1)]"
DDETerminate Channel

End Sub
Sub UpElevation()
'
' UpElevation Macro
' Macro recorded 24/03/2010
'

'
Channel = DDEInitiate("DPlot", "System")
DDEExecute Channel, "[ContourViewChange(,1)]"
DDETerminate Channel

End Sub
Sub LeftAzimuth()
'
' LeftAzimuth Macro
' Macro recorded 24/03/2010
'

'
Channel = DDEInitiate("DPlot", "System")
DDEExecute Channel, "[ContourViewChange(-1,)]"
DDETerminate Channel

End Sub
Sub RightAzimuth()
'
' RightAzimuth Macro
' Macro recorded 24/03/2010
'

'
Channel = DDEInitiate("DPlot", "System")
DDEExecute Channel, "[ContourViewChange(1,)]"
DDETerminate Channel

End Sub

I created a button for each macro and that works fine. But the problem is
that to acheive the disired result I have to click a lot of times on each
button. I know that I can replace the 1 and -1 with higher numbers but
then
that will be too course.

I was wondering if and how I could replace the 1 and -1 numbers with cell
contents, which cells contents are controlled via a scroll bar inside
excel.

I know how to use the scroll bars, but I cannot find the correct way to
declare the cells inside the macro and subsequently how to use them/their
value.


.
 
R

Reg

Wrap this around it and put it in ThisWorkbook

Private Sub Workbook_SheetChange()

End Sub

Jason Falzon said:
Yes this works as it takes the value of my cell, but the problem is that I'd
like the macro to continuasly refresh so as it takes the new value
immediately, as the application calls for the cell value to change frequently
through a scroll bar.

Luke M said:
Can you do something like:

DDEExecute Channel, "[ContourViewChange(," & Range("A2").Value & ")]"

--
Best Regards,

Luke M
Jason Falzon said:
I have an aplication called DPlot that can take commands from inside excel
using macros.

I managed to interact already with it using the following: -

Sub DownElevation()
'
' DownElevation Macro
' Macro recorded 24/03/2010
'

'
Channel = DDEInitiate("DPlot", "System")
DDEExecute Channel, "[ContourViewChange(,-1)]"
DDETerminate Channel

End Sub
Sub UpElevation()
'
' UpElevation Macro
' Macro recorded 24/03/2010
'

'
Channel = DDEInitiate("DPlot", "System")
DDEExecute Channel, "[ContourViewChange(,1)]"
DDETerminate Channel

End Sub
Sub LeftAzimuth()
'
' LeftAzimuth Macro
' Macro recorded 24/03/2010
'

'
Channel = DDEInitiate("DPlot", "System")
DDEExecute Channel, "[ContourViewChange(-1,)]"
DDETerminate Channel

End Sub
Sub RightAzimuth()
'
' RightAzimuth Macro
' Macro recorded 24/03/2010
'

'
Channel = DDEInitiate("DPlot", "System")
DDEExecute Channel, "[ContourViewChange(1,)]"
DDETerminate Channel

End Sub

I created a button for each macro and that works fine. But the problem is
that to acheive the disired result I have to click a lot of times on each
button. I know that I can replace the 1 and -1 with higher numbers but
then
that will be too course.

I was wondering if and how I could replace the 1 and -1 numbers with cell
contents, which cells contents are controlled via a scroll bar inside
excel.

I know how to use the scroll bars, but I cannot find the correct way to
declare the cells inside the macro and subsequently how to use them/their
value.


.
 

Ask a Question

Want to reply to this thread or ask your own question?

You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.

Ask a Question

Top