adding shapes to forms

[gbpg]

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?

 

[Jim Cone]

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?

 

[gbpg]

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]

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

 

[Andy Pope]

Hi,

As Jim says there is no built in shape controls.
Using a label or image control to hold a picture of a shape is the best you
can do.

I have written some code to using this approach.
http://www.andypope.info/vba/userformdraw.htm

Cheers
Andy

 

[gbpg]

Hey Andy:
Thanks I almost gave up there - got my lines figured out and text. How can
you change the orientation of the arrow to point down?

 

[Andy Pope]

Hi,

Either use the Down Arrow autoshape or rotate it.

Cheers
Andy