Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
Find the 4 parameters in order to design one line
Hello to all and excused for my bad English
With following macro I can easily draw a line sub draw_line () Xp1 = 1 Yp1 = 60 Xp2 = 1900 Yp2 = 60 ActiveSheet.Shapes.AddLine (Xp1, Yp1, Xp2, Yp2). Name = "line1" end sub We suppose that with a successive macro I want to determine the used parameters in order to trace the line1. What's the method to determine the 4 used parameters in order to trace the line through code VBA; that is Xp1 Yp1 Xp2 Yp2? Thanks for the attention. Diego. |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
Find the 4 parameters in order to design one line
'-------------------------------------------
Sub draw_line() Dim Xp1 As Single, Yp1 As Single Dim Xp2 As Single, Yp2 As Single Xp1 = 1 Yp1 = 60 Xp2 = 1900 Yp2 = 60 ActiveSheet.Shapes.AddLine(Xp1, Yp1, Xp2, Yp2).Name = "line1" End Sub Sub get_line_coord() Dim Xp1 As Single, Yp1 As Single Dim Xp2 As Single, Yp2 As Single Dim shLine As Shape Set shLine = ActiveSheet.Shapes("line1") Xp1 = shLine.Left Yp1 = shLine.Top Xp2 = Xp1 + shLine.Width Yp2 = Yp1 + shLine.Height MsgBox "P1: " & Xp1 & ", " & Yp1 & vbCrLf & _ "P2: " & Xp2 & ", " & Yp2 End Sub '------------------------------------------------- HTH -- AP "skimer" a écrit dans le message de news: ... Hello to all and excused for my bad English With following macro I can easily draw a line sub draw_line () Xp1 = 1 Yp1 = 60 Xp2 = 1900 Yp2 = 60 ActiveSheet.Shapes.AddLine (Xp1, Yp1, Xp2, Yp2). Name = "line1" end sub We suppose that with a successive macro I want to determine the used parameters in order to trace the line1. What's the method to determine the 4 used parameters in order to trace the line through code VBA; that is Xp1 Yp1 Xp2 Yp2? Thanks for the attention. Diego. |
#3
Posted to microsoft.public.excel.programming
|
|||
|
|||
Find the 4 parameters in order to design one line
Look at the left, top, height and width properties of the Shape object.
-- HTH Bob Phillips (replace somewhere in email address with gmail if mailing direct) "skimer" wrote in message ... Hello to all and excused for my bad English With following macro I can easily draw a line sub draw_line () Xp1 = 1 Yp1 = 60 Xp2 = 1900 Yp2 = 60 ActiveSheet.Shapes.AddLine (Xp1, Yp1, Xp2, Yp2). Name = "line1" end sub We suppose that with a successive macro I want to determine the used parameters in order to trace the line1. What's the method to determine the 4 used parameters in order to trace the line through code VBA; that is Xp1 Yp1 Xp2 Yp2? Thanks for the attention. Diego. |
#4
Posted to microsoft.public.excel.programming
|
|||
|
|||
Find the 4 parameters in order to design one line
Perfect !!!
Thanks of all ;-))) |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
URGENT- Form design and field tab-order problems | Excel Discussion (Misc queries) | |||
I need a basic quick time line design | Excel Discussion (Misc queries) | |||
Order form design | Excel Discussion (Misc queries) | |||
Series order conflicts with line order | Charts and Charting in Excel | |||
passing parameters from command line | Excel Programming |