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 !), к размерам которой нужно привести прочие диаграммы рабочей книги, затем любым способом исполняете макрос.