ExcelBanter

ExcelBanter (https://www.excelbanter.com/)
-   Excel Programming (https://www.excelbanter.com/excel-programming/)
-   -   adding shapes to forms (https://www.excelbanter.com/excel-programming/401660-adding-shapes-forms.html)

gbpg

adding shapes to forms
 
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

adding shapes to forms
 
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

adding shapes to forms
 
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?


Jim Cone

adding shapes to forms
 

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?


Andy Pope

adding shapes to forms
 
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
--

Andy Pope, Microsoft MVP - Excel
http://www.andypope.info
"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?



gbpg

adding shapes to forms
 
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" wrote:

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
--

Andy Pope, Microsoft MVP - Excel
http://www.andypope.info
"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?



Andy Pope

adding shapes to forms
 
Hi,

Either use the Down Arrow autoshape or rotate it.

Cheers
Andy

--

Andy Pope, Microsoft MVP - Excel
http://www.andypope.info
"gbpg" wrote in message
...
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" wrote:

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
--

Andy Pope, Microsoft MVP - Excel
http://www.andypope.info
"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?





All times are GMT +1. The time now is 05:35 PM.

Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
ExcelBanter.com