[Invincible]

Код:

Sub test2()  
Dim sh As Shape, ActiveSlide As Slide, w As Long, h As Long  On Error Resume Next: Err.Clear     
Set ActiveSlide = ActiveWindow.Selection.SlideRange(1)  
h = InputBox("Height", , 200): If Err Then Exit Sub  
w = InputBox("Width", , 300): If Err Then Exit Sub     
For Each sh In ActiveSlide.Shapes      
f sh.Type = msoChart Then          
sh.Height = h          
sh.Width = w      
End If  Next  End Sub