Компьютерный форум OSzone.net  

Компьютерный форум OSzone.net (http://forum.oszone.net/index.php)
-   Microsoft Office (Word, Excel, Outlook и т.д.) (http://forum.oszone.net/forumdisplay.php?f=115)
-   -   Изменение размеров графиков (http://forum.oszone.net/showthread.php?t=235141)

Invincible 22-05-2012 04:08 1920171

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

Iska 22-05-2012 06:08 1920181

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.

Время: 12:45.
© OSzone.net 2001-