Invincible |
22-05-2012 04:08 1920171 |
Изменение размеров графиков
У меня в документе 30 графиков, как-нибудь можно сделать, чтобы они все стали одинакового размера?
|
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 |
22-07-2012 17:31 1956659 |
Спасибо
|
Время: 12:45.
© OSzone.net 2001-