Macro using a cell reference

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.

Can you do something like:

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

--
Best Regards,

Luke M
"Jason Falzon" wrote in message
...
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.

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" wrote:

Can you do something like:

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

--
Best Regards,

Luke M
"Jason Falzon" wrote in message
...
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.


.

Wrap this around it and put it in ThisWorkbook

Private Sub Workbook_SheetChange()

End Sub

"Jason Falzon" wrote:

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" wrote:

Can you do something like:

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

--
Best Regards,

Luke M
"Jason Falzon" wrote in message
...
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.


.