Re: Double AutoShape Dimensions

Tech Tip: Click here to run a free scan for Windows Errors and optimize PC performance

From: Sonia (scds_at_nowherebuthere.com)
Date: 01/20/05 

Date: Wed, 19 Jan 2005 22:45:02 -0800

Apparently I don't remember much about math either!! LOL! If you want to
double the area, but keep the same aspect ratio, it's a bit trickier and my
brain isn't muddling up the formula right now.

"Sonia" <scds@nowherebuthere.com> wrote in message
news:uIt6aTr$EHA.2788@TK2MSFTNGP15.phx.gbl...
> Hey, I know nothing about VBA or macros, but you're doing what you *say* you
> want to do. True, if you want to double the width you would multiply by 2.
> And if you want to double the height you would multiply by two. That doubles
> the dimensions, but at the same time it increases the area of the object by a
> factor of 4. Do you want to double the dimensions or double the area? To do
> the latter you would multiply the dimensions by 1.5.
> --
>
> Sonia Coleman
> Microsoft PowerPoint MVP Team
> Autorun Software, Templates and Tutorials
> http://www.soniacoleman.com
>
> "Pinky" <paisley@psynet.net> wrote in message
> news:1106199646.886182.315550@c13g2000cwb.googlegroups.com...
>>I want to create a macro that doubles my AutoShape dimensions and
>> recorded/edited this code:
>>
>> Sub twosize()
>> With ActiveWindow.Selection.ShapeRange
>> .LockAspectRatio = msoTrue
>> .Height = (ActiveWindow.Selection.ShapeRange.Height) * 2
>> .Width = (ActiveWindow.Selection.ShapeRange.Width) * 2
>> End With
>> End Sub
>>
>> However this increases my shape dimensions by 4 times - a 1 cm square
>> becomes 4.01 cm square.
>>
>> What can I do?
>>
>> - Pinky
>>
>
>