Изменение размеров графиков

[Invincible]

У меня в документе 30 графиков, как-нибудь можно сделать, чтобы они все стали одинакового размера?

[Iska]

Invincible, документ какого конкретного приложения? Предположу, что Excel.

Попробуйте так:
Option Explicit

Sub MakeSameSize()
Dim objWorksheet As Worksheet
Dim objChartObject As ChartObject

Dim i As Long

Dim lngWidth As Long
Dim lngHeight As Long

If TypeName(Selection) = "ChartObject" Then
Set objChartObject = Selection

For Each objWorksheet In ActiveWorkbook.Sheets
With objWorksheet
If .Type = xlWorksheet Then
With .ChartObjects
For i = 1 To .Count
With .Item(i)
.Width = objChartObject.Width
.Height = objChartObject.Height
End With
Next i
End With
End If
End With
Next objWorksheet
Else
MsgBox "Выделение не является внедрённой диаграммой"
End If
End Sub

Выделяете потребную диаграмму (Control-Click !), к размерам которой нужно привести прочие диаграммы рабочей книги, затем любым способом исполняете макрос.

[Invincible]

Спасибо