Rounded Rectangle

[Adrian D. Bailey]

I have an old worksheet, created many years ago using Excel 3, but it has
survived over the years and is currently in Excel 2003.
It has on it some shapes described as "Rounded Rectangle" by Excel's own Alt
text created when the sheet is saved as a web page.
These Rounded Rectangles seem to be slightly different from Text Boxes and
from Command Buttons, as they can be rotated. (In the descriptive box near
the formula bar they are called "Text 123" whereas text boxes are called
"Text Box 123" and Buttons are called "Button 123".

I cannot find how to create a new shape of this type, other than by
copying/pasting an old one then changing the text and size etc (which is
what I've been doing for many years!).
I'd like to make one from scratch, so I can record myself making it and then
I can edit the macro etc.

--
Adrian D.Bailey, Information and Systems Manager, Dept.Human Sciences
Loughborough University, Loughborough Leics, LE11 3TU, UK.
(e-mail address removed) Tel: 01509 223007 Fax: 01509 223940

Community Warden, Storer and Burleigh Areas. Out-of-hours Tel: 01509 563263
--

 

[Peter T]

On the Drawing toolbar, Autoshapes > Basic Shapes > Rounded Rectangle and
record a macro.

Regards,
Peter T

 

[Adrian D. Bailey]

Thank you Peter.
These rounded rectangles aren't exactly the same as my original, but they
will do well enough.
(The web alt text doesn't say Rounded Rectangle, the descriptive box by the
formula bar says Autoshape instead of Text, and whn the object is selected
the display doesn't have shading around the outside. All irrelevant
differences, but indications that the objects are somehow different.)


--
Adrian D.Bailey, Information and Systems Manager, Dept.Human Sciences
Loughborough University, Loughborough Leics, LE11 3TU, UK.
(e-mail address removed) Tel: 01509 223007 Fax: 01509 223940

Community Warden, Storer and Burleigh Areas. Out-of-hours Tel: 01509 563263
--

On the Drawing toolbar, Autoshapes > Basic Shapes > Rounded Rectangle and
record a macro.

Regards,
Peter T

 

[Peter T]

I expect your rounded rectangle can be formatted to look the same as your
original. Right click > format, look at the Line formats. Or maybe a Shadow

Shapes have an AlternativeText property, eg

Sub test()
Dim sh As Shape

With Range("B3:C5")
Set sh = ActiveSheet.Shapes.AddShape(msoShapeRoundedRectangle, _
.Left, .Top, .Width, .Height)
End With

sh.Name = "Rounded 1" ' error if name already exists
sh.AlternativeText = "My rounded rectangle"

End Sub

Regards,
Peter T

Thank you Peter.
These rounded rectangles aren't exactly the same as my original, but they
will do well enough.
(The web alt text doesn't say Rounded Rectangle, the descriptive box by the
formula bar says Autoshape instead of Text, and whn the object is selected
the display doesn't have shading around the outside. All irrelevant
differences, but indications that the objects are somehow different.)


--
Adrian D.Bailey, Information and Systems Manager, Dept.Human Sciences
Loughborough University, Loughborough Leics, LE11 3TU, UK.
(e-mail address removed) Tel: 01509 223007 Fax: 01509 223940

Community Warden, Storer and Burleigh Areas. Out-of-hours Tel: 01509 563263
--