Имя пользователя:
Пароль:  
Помощь | Регистрация | Забыли пароль?  | Правила  

Компьютерный форум OSzone.net » Сфера Microsoft » Microsoft Office (Word, Excel, Outlook и т.д.) » 2007 - Изменение размеров графиков

Ответить
Настройки темы
2007 - Изменение размеров графиков

Старожил


Сообщения: 240
Благодарности: 1

Профиль | Отправить PM | Цитировать


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

Отправлено: 04:08, 22-05-2012

 

Ветеран


Contributor


Сообщения: 24951
Благодарности: 7249

Профиль | Отправить PM | Цитировать


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

Отправлено: 06:08, 22-05-2012 | #2



Для отключения данного рекламного блока вам необходимо зарегистрироваться или войти с учетной записью социальной сети.

Если же вы забыли свой пароль на форуме, то воспользуйтесь данной ссылкой для восстановления пароля.


Старожил


Сообщения: 240
Благодарности: 1

Профиль | Отправить PM | Цитировать


Спасибо

Отправлено: 17:31, 22-07-2012 | #3



Компьютерный форум OSzone.net » Сфера Microsoft » Microsoft Office (Word, Excel, Outlook и т.д.) » 2007 - Изменение размеров графиков

Участник сейчас на форуме Участник сейчас на форуме Участник вне форума Участник вне форума Автор темы Автор темы Шапка темы Сообщение прикреплено

Похожие темы
Название темы Автор Информация о форуме Ответов Последнее сообщение
Интерфейс - Изменение размеров панели задач UserU Microsoft Windows 2000/XP 0 25-04-2010 12:16
C/C++ - Пропорциональное изменение размеров окна (на Qt) PulSar.CE194694 Программирование и базы данных 7 09-04-2010 23:01
Win32 API - запретить изменение размеров окна Turman Программирование и базы данных 1 21-06-2009 21:00
Разное - LogonUI - изменение размеров аватаров Boa Soft Оформление Windows XP 0 31-01-2009 20:00
Изменение размеров разделов HDD SKLAD Накопители (SSD, HDD, USB Flash) 13 26-09-2006 17:44




 
Переход