[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]

Спасибо