PC Review


Reply
Thread Tools Rate Thread

adding shapes to forms

 
 
gbpg
Guest
Posts: n/a
 
      26th Nov 2007
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?
 
Reply With Quote
 
 
 
 
Jim Cone
Guest
Posts: n/a
 
      26th Nov 2007
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?
 
Reply With Quote
 
gbpg
Guest
Posts: n/a
 
      26th Nov 2007
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?
>

 
Reply With Quote
 
Jim Cone
Guest
Posts: n/a
 
      26th Nov 2007

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

 
Reply With Quote
 
Andy Pope
Guest
Posts: n/a
 
      26th Nov 2007
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" <(E-Mail Removed)> wrote in message
news:409ED01B-277A-4273-8B22-(E-Mail Removed)...
> 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?
>>


 
Reply With Quote
 
gbpg
Guest
Posts: n/a
 
      27th Nov 2007
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" <(E-Mail Removed)> wrote in message
> news:409ED01B-277A-4273-8B22-(E-Mail Removed)...
> > 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?
> >>

>

 
Reply With Quote
 
Andy Pope
Guest
Posts: n/a
 
      27th Nov 2007
Hi,

Either use the Down Arrow autoshape or rotate it.

Cheers
Andy

--

Andy Pope, Microsoft MVP - Excel
http://www.andypope.info
"gbpg" <(E-Mail Removed)> wrote in message
news:473F546B-9932-474E-B986-(E-Mail Removed)...
> 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" <(E-Mail Removed)> wrote in message
>> news:409ED01B-277A-4273-8B22-(E-Mail Removed)...
>> > 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?
>> >>

>>


 
Reply With Quote
 
 
 
Reply

Thread Tools
Rate This Thread
Rate This Thread:

Posting Rules
You may not post new threads
You may not post replies
You may not post attachments
You may not edit your posts

BB code is On
Smilies are On
[IMG] code is On
HTML code is Off
Trackbacks are On
Pingbacks are On
Refbacks are Off


Similar Threads
Thread Thread Starter Forum Replies Last Post
Adding customized shapes to shapes toolbar =?Utf-8?B?amFtZXNfY2hpbGxp?= Microsoft Powerpoint 2 24th Jul 2007 04:16 AM
Drawing Shapes on Forms =?Utf-8?B?SmFzb24gWmlzY2hrZQ==?= Microsoft Excel Programming 1 30th May 2007 04:39 AM
Shapes into forms =?Utf-8?B?SGFtc3RlcjA3?= Microsoft Excel Misc 1 15th May 2007 08:32 AM
win forms shapes =?Utf-8?B?QmVu?= Microsoft VB .NET 0 12th Jun 2004 05:06 PM
Drawing Shapes on Forms ? Dave Ruhl Microsoft Access 3 3rd Jun 2004 10:23 PM


Features
 

Advertising
 

Newsgroups
 


All times are GMT +1. The time now is 04:46 AM.