How do I? Make 1 visio shape same size as another-NotUsingHandles?

How Do I make 1 Visio Shape the same size as another one, without using the
shapes handles?

I cannot find this anywhere?

Use the Size & Position Window under the View menu. You can also use basic
calculations in there as well, for example:

Height: 2ft+1in

....and of course there's always the shapesheet (Window/Show ShapeSheet) if
you want to get deeper into how shapes behave.

Best regards

John


John Goldsmith
www.visualSignals.co.uk

"kdrahovsky" wrote in message
...
How Do I make 1 Visio Shape the same size as another one, without using
the
shapes handles?

I cannot find this anywhere?

Thanks Jon, this helps a little. Still you must type in the size. More
specifically, I apologise, perhaps a "Make Same Size" button. For example,
like other applications, you can typically highlight a first object, then a
2nd object, then you can go to an option/menu that states "Make the Same
Size." Then the 2nd object takes on the same sizing (H & W) of the 1st
object.

Thanks,
Karl

"John Goldsmith" wrote:

Use the Size & Position Window under the View menu. You can also use basic
calculations in there as well, for example:

Height: 2ft+1in

....and of course there's always the shapesheet (Window/Show ShapeSheet) if
you want to get deeper into how shapes behave.

Best regards

John


John Goldsmith
www.visualSignals.co.uk

"kdrahovsky" wrote in message
...
How Do I make 1 Visio Shape the same size as another one, without using
the
shapes handles?

I cannot find this anywhere?

Hello Karl,

Sorry, I misunderstood the question. I'm afraid there's no direct command
that does what you're looking for (of course you can duplicate (ctrl+D)).

You could achieve this fairly simply with code.

Best regards

John


John Goldsmith
www.visualSignals.co.uk

"kdrahovsky" wrote in message
...
Thanks Jon, this helps a little. Still you must type in the size. More
specifically, I apologise, perhaps a "Make Same Size" button. For
example,
like other applications, you can typically highlight a first object, then
a
2nd object, then you can go to an option/menu that states "Make the Same
Size." Then the 2nd object takes on the same sizing (H & W) of the 1st
object.

Thanks,
Karl

"John Goldsmith" wrote:

Use the Size & Position Window under the View menu. You can also use
basic
calculations in there as well, for example:

Height: 2ft+1in

....and of course there's always the shapesheet (Window/Show ShapeSheet)
if
you want to get deeper into how shapes behave.

Best regards

John


John Goldsmith
www.visualSignals.co.uk

"kdrahovsky" wrote in message
...
How Do I make 1 Visio Shape the same size as another one, without using
the
shapes handles?

I cannot find this anywhere?

Thanks. At least I know I am not overlooking something. Seems so basic of a
feature to be added in their future.

"John Goldsmith" wrote:

Hello Karl,

Sorry, I misunderstood the question. I'm afraid there's no direct command
that does what you're looking for (of course you can duplicate (ctrl+D)).

You could achieve this fairly simply with code.

Best regards

John


John Goldsmith
www.visualSignals.co.uk

"kdrahovsky" wrote in message
...
Thanks Jon, this helps a little. Still you must type in the size. More
specifically, I apologise, perhaps a "Make Same Size" button. For
example,
like other applications, you can typically highlight a first object, then
a
2nd object, then you can go to an option/menu that states "Make the Same
Size." Then the 2nd object takes on the same sizing (H & W) of the 1st
object.

Thanks,
Karl

"John Goldsmith" wrote:

Use the Size & Position Window under the View menu. You can also use
basic
calculations in there as well, for example:

Height: 2ft+1in

....and of course there's always the shapesheet (Window/Show ShapeSheet)
if
you want to get deeper into how shapes behave.

Best regards

John


John Goldsmith
www.visualSignals.co.uk

"kdrahovsky" wrote in message
...
How Do I make 1 Visio Shape the same size as another one, without using
the
shapes handles?

I cannot find this anywhere?

Here is a macro that will do the trick.

Public Sub MakeSameSize()
'Makes two objects in a selection list the same size by setting the Width and
'Height of the second item to the Width and Height of the first item.
ActiveWindow.Selection.Item(2).Cells("Width").Resu ltIU =
ActiveWindow.Selection.Item(1).Cells("Width").Resu ltIU
ActiveWindow.Selection.Item(2).Cells("Height").Res ultIU =
ActiveWindow.Selection.Item(1).Cells("Height").Res ultIU
End Sub


"kdrahovsky" wrote:

Thanks. At least I know I am not overlooking something. Seems so basic of a
feature to be added in their future.

"John Goldsmith" wrote:

Hello Karl,

Sorry, I misunderstood the question. I'm afraid there's no direct command
that does what you're looking for (of course you can duplicate (ctrl+D)).

You could achieve this fairly simply with code.

Best regards

John


John Goldsmith
www.visualSignals.co.uk

"kdrahovsky" wrote in message
...
Thanks Jon, this helps a little. Still you must type in the size. More
specifically, I apologise, perhaps a "Make Same Size" button. For
example,
like other applications, you can typically highlight a first object, then
a
2nd object, then you can go to an option/menu that states "Make the Same
Size." Then the 2nd object takes on the same sizing (H & W) of the 1st
object.

Thanks,
Karl

"John Goldsmith" wrote:

Use the Size & Position Window under the View menu. You can also use
basic
calculations in there as well, for example:

Height: 2ft+1in

....and of course there's always the shapesheet (Window/Show ShapeSheet)
if
you want to get deeper into how shapes behave.

Best regards

John


John Goldsmith
www.visualSignals.co.uk

"kdrahovsky" wrote in message
...
How Do I make 1 Visio Shape the same size as another one, without using
the
shapes handles?

I cannot find this anywhere?

Very nice. Much appreciated, applied and worked like a charm.

Thank You,
Karl

"Fred Diggs" wrote:

Here is a macro that will do the trick.

Public Sub MakeSameSize()
'Makes two objects in a selection list the same size by setting the Width and
'Height of the second item to the Width and Height of the first item.
ActiveWindow.Selection.Item(2).Cells("Width").Resu ltIU =
ActiveWindow.Selection.Item(1).Cells("Width").Resu ltIU
ActiveWindow.Selection.Item(2).Cells("Height").Res ultIU =
ActiveWindow.Selection.Item(1).Cells("Height").Res ultIU
End Sub


"kdrahovsky" wrote:

Thanks. At least I know I am not overlooking something. Seems so basic of a
feature to be added in their future.

"John Goldsmith" wrote:

Hello Karl,

Sorry, I misunderstood the question. I'm afraid there's no direct command
that does what you're looking for (of course you can duplicate (ctrl+D)).

You could achieve this fairly simply with code.

Best regards

John


John Goldsmith
www.visualSignals.co.uk

"kdrahovsky" wrote in message
...
Thanks Jon, this helps a little. Still you must type in the size. More
specifically, I apologise, perhaps a "Make Same Size" button. For
example,
like other applications, you can typically highlight a first object, then
a
2nd object, then you can go to an option/menu that states "Make the Same
Size." Then the 2nd object takes on the same sizing (H & W) of the 1st
object.

Thanks,
Karl

"John Goldsmith" wrote:

Use the Size & Position Window under the View menu. You can also use
basic
calculations in there as well, for example:

Height: 2ft+1in

....and of course there's always the shapesheet (Window/Show ShapeSheet)
if
you want to get deeper into how shapes behave.

Best regards

John


John Goldsmith
www.visualSignals.co.uk

"kdrahovsky" wrote in message
...
How Do I make 1 Visio Shape the same size as another one, without using
the
shapes handles?

I cannot find this anywhere?

Guys,

I know this is an old thread, but a quick improvement (works for 2 items selected, won't complain if no items selected):

Public Sub MakeSameSize()
Dim width As Double, height As Double
If ActiveWindow.Selection.Count 0 Then
With ActiveWindow.Selection
width = .Item(1).Cells("Width").ResultIU
height = .Item(1).Cells("Height").ResultIU
For i = 2 To ActiveWindow.Selection.Count
.Item(i).Cells("Width").ResultIU = width
.Item(i).Cells("Height").ResultIU = height
Next i
End With
End If
End Sub


-Tim

On Thu, 22 May 2008 23:14:20 -0700, Tim West wrote:

Guys,

I know this is an old thread, but a quick improvement (works for 2 items selected, won't complain if no items selected):

Public Sub MakeSameSize()
Dim width As Double, height As Double
If ActiveWindow.Selection.Count 0 Then
With ActiveWindow.Selection
width = .Item(1).Cells("Width").ResultIU
height = .Item(1).Cells("Height").ResultIU
For i = 2 To ActiveWindow.Selection.Count
.Item(i).Cells("Width").ResultIU = width
.Item(i).Cells("Height").ResultIU = height
Next i
End With
End If
End Sub

How do you ensure that you pick up the width and height from the
correct shape? If you have two shapes, which shape is Item(1)?



--
Regards, Paul Herber, Sandrila Ltd.
Visio Utilities http://www.visio-utilities.sandrila.co.uk/

It is in the order of selection, so the first item selected is item(1)

John... Visio MVP

Need stencils or ideas? http://visio.mvps.org/3rdparty.htm
Need VBA examples? http://visio.mvps.org/VBA.htm
Visio Wishlist http://visio.mvps.org/wish_list.htm
"Paul Herber" wrote in message
ell.net...
On Thu, 22 May 2008 23:14:20 -0700, Tim West wrote:

Guys,

I know this is an old thread, but a quick improvement (works for 2 items
selected, won't complain if no items selected):

Public Sub MakeSameSize()
Dim width As Double, height As Double
If ActiveWindow.Selection.Count 0 Then
With ActiveWindow.Selection
width = .Item(1).Cells("Width").ResultIU
height = .Item(1).Cells("Height").ResultIU
For i = 2 To ActiveWindow.Selection.Count
.Item(i).Cells("Width").ResultIU = width
.Item(i).Cells("Height").ResultIU = height
Next i
End With
End If
End Sub

How do you ensure that you pick up the width and height from the
correct shape? If you have two shapes, which shape is Item(1)?



--
Regards, Paul Herber, Sandrila Ltd.
Visio Utilities http://www.visio-utilities.sandrila.co.uk/