You cannot add shapes to a userform.
You would have to find a control that looked like an arrow in order
to add an arrow directly on a userform. I don't know of any.
A label or other controls can be added directly to a userform.
This example uses code in the userform module run by clicking a command button...
'---
Private Sub CommandButton1_Click()
Dim cmdLabel As Control
Set cmdLabel = Me.Controls.Add("Forms.Label.1")
cmdLabel.Left = 18
cmdLabel.Top = 100
cmdLabel.Width = 175
cmdLabel.Height = 20
cmdLabel.BackColor = &HFF8080
End Sub
---
Jim Cone
San Francisco, USA
http://www.realezsites.com/bus/primitivesoftware
(Excel Add-ins / Excel Programming)
"gbpg"
wrote in message
Hi Jim:
Do you mean there is no way to do what you can do with a sheet (ie):
Set Shp= ActiveSheet.Shapes.AddShape
"Jim Cone" wrote:
> Add a label to the form
> Use "Copy Picture" on the Edit menu and copy a picture of the shape.
> Select the label on the form
> In the VBE properties window , paste the picture into the
> picture property of the label.
> --
> Jim Cone
> San Francisco, USA
> http://www.realezsites.com/bus/primitivesoftware
> (Excel Add-ins / Excel Programming)
>
>
>
>
> "gbpg"
> wrote in message
> I know you can add an arrow shape to a sheet with using Active Sheet. Is
> there a way to have an arrow appear on the form?
>