Microsoft Office Forums - View Single Post - [Solved] simple change chart in VBA

Thread: [Solved] simple change chart in VBA

View Single Post

Old

07-05-2012, 01:28 PM

macropod

macropod is offline

macropod uses Windows 7 64bit

Windows 7 64bit macropod uses Office 2010 32bit

macropod uses Office 2010 32bit

Office 2010 32bit

Administrator

Join Date: Dec 2010

Location: Canberra, Australia

Posts: 22,467

macropod has a reputation beyond repute

macropod has a reputation beyond repute

macropod has a reputation beyond repute

macropod has a reputation beyond repute

macropod has a reputation beyond repute

macropod has a reputation beyond repute

macropod has a reputation beyond repute

macropod has a reputation beyond repute

macropod has a reputation beyond repute

macropod has a reputation beyond repute

macropod has a reputation beyond repute

Default

Hi LKnomad,

You haven't told your macro what objshape is. Try:

Code:

Sub ChangePieChart()
Dim objShape As Shape
Set objShape = Selection.ShapeRange(1)
objShape.Height = 250
End Sub

This could be reduced to:

Code:

Sub ChangePieChart()
Selection.ShapeRange(1).Height = 250
End Sub

__________________
Cheers,
Paul Edstein
[Fmr MS MVP - Word]

Reply With Quote