|
|
#8
07-05-2012, 02:13 PM
|
||||
|
||||
Try:
Code:
Sub ChangePieChart()
With Selection
If .ShapeRange.Count > 0 Then
.ShapeRange(1).Height = 250
ElseIf .InlineShapes.Count > 0 Then
.InlineShapes(1).Height = 250
End If
End With
End Sub
__________________
Cheers, Paul Edstein [Fmr MS MVP - Word] 
|
| Thread Tools | |
| Display Modes | |
|
|
Similar Threads
|
||||
| Thread | Thread Starter | Forum | Replies | Last Post |
 It has to be simple...formula
|
ClearSkies | Excel | 1 | 03-04-2011 01:06 PM |
| Simple or what? | nebb | Publisher | 0 | 09-23-2010 07:00 AM |
| Converting manual chart to bar chart? | aligahk06 | Excel | 0 | 07-03-2010 12:23 PM |
| Simple formulas | den hobbelder | Word | 1 | 02-26-2010 01:53 PM |
| Chart colors change during slideshow | chickasaw | PowerPoint | 0 | 02-06-2010 06:08 PM |
Windows 7 64bit 
Office 2010 32bit
Threaded Mode