Comments on: VBA: Size an Object to a Range Size

By: Pedro

Pedro — Sun, 13 Feb 2005 08:00:22 +0000

Yes, Mark!!!!.

It works perfectly. Thanks so much for your help.

regards,
Pedro

By: Mark

Mark — Sat, 12 Feb 2005 16:14:08 +0000

Hey pedro, try this, it works for me to use this concept with an autoshape

Sub SizeShape2Range()

Dim MyShape As Shape
Dim MyRange As Range

Sheet1.Activate

Set MyShape = ActiveSheet.Shapes("AutoShape 1")
Set MyRange = Sheet1.Range("B2:D6")

With MyShape
.Left = MyRange.Left
.Top = MyRange.Top
.Width = MyRange.Width
.Height = MyRange.Height
End With

End Sub

By: Pedro

Pedro — Sat, 12 Feb 2005 15:50:59 +0000

Hi,

I tried to modify the code for a shape but I could not.
Would you tell me what I am doing wrong.
Thanks in advance for your kind assistance.
Pedro.

Sub SizeShape2Range()

Dim MyShape As Shape
Dim MyRange As Range

Set MyShape = ActiveSheet.Shapes(1).Shape 'I THINK HERE IS MY ERROR
Set MyRange = Sheet1. Range("B2:D6")

With MyShape.Parent
.Left = MyRange.Left
.Top = MyRange.Top
.Width = MyRange.Width
.Height = MyRange.Height
End With

End Sub