drawing a line on a userform

[jammoca]

I know you can draw a line on a userform by providing the start and end co-ordinate of where you want it, but is it possible to have a UserForm appear on call, with the 1st co-ordinate already set (by the programmer) and the user clicks on some point of the UserForm to indicate where they want the end co-ordinate to be, and that a line would then be drawn to that point ?

 

[jammoca]

Hi Andy, this is what I'm currently using (but getting the inaccurate line aim), is this what you meant ?? :

Private Function m_CreateFrame() As Shape
'
' Create a shape top left in order to keep the other
' elements in the correct offset positions
'
Dim lngColor As Long

On Error GoTo ErrCreateFrame
If m_blnUseUF Then
If m_frmUFCanvas.BackColor >= 0 Then
lngColor = m_frmUFCanvas.BackColor
Else
lngColor = m_frmUFCanvas.BackColor And &HFF
lngColor = GetSysColor(lngColor)
End If
Set m_CreateFrame = m_shtHolder.Shapes.AddShape(msoShapeRectangle, 0, 0, m_frmUFCanvas.InsideWidth - 1, m_frmUFCanvas.InsideHeight - 1)
Else
If m_objCanvas.BackColor >= 0 Then
lngColor = m_objCanvas.BackColor
Else
lngColor = m_objCanvas.BackColor And &HFF
lngColor = GetSysColor(lngColor)
End If
Set m_CreateFrame = m_shtHolder.Shapes.AddShape(msoShapeRectangle, 0, 0, m_objCanvas.Width - 1, m_objCanvas.Height - 1)
End If
With m_CreateFrame
With .Fill
.ForeColor.RGB = lngColor
.BackColor.RGB = lngColor
End With
.Line.BackColor.RGB = lngColor
.Line.ForeColor.RGB = lngColor
.ZOrder msoSendToBack
End With
Exit Function
ErrCreateFrame:
Set m_CreateFrame = Nothing
Exit Function
End Function

 

[bisel]

I know you can draw a line on a userform by providing the start and end co-ordinate of where you want it, but is it possible to have a UserForm appear on call, with the 1st co-ordinate already set (by the programmer) and the user clicks on some point of the UserForm to indicate where they want the end co-ordinate to be, and that a line would then be drawn to that point ?

I know this is an old post, but a much easier way to draw an object (line, circle, or whatnot) is create the drawing on another application and copy it into a picture that you place on the user form. For example, to draw a line on a user form, draw your line in something like PowerPoint. Set the color and length and width properties to what you desire.

• On the user form, insert an image.
• Copy the line from PowerPoint and on the image properties, paste it in the properties field, "Picture".
• Set the BackStyle to "Transparent"
• Set the BorderStyle to "None"
• Set the PictureSizeMode to "3 - fmPictureSizeModeZoom"
• Size the image to fit on the user form

Steve