Текущее время: Вт, июн 24 2025, 15:19

Часовой пояс: UTC + 3 часа




Начать новую тему Ответить на тему  [ Сообщений: 8 ] 
Автор Сообщение
 Заголовок сообщения: Кнопки иерархии в Excel
СообщениеДобавлено: Вт, авг 24 2010, 13:15 
Начинающий
Начинающий

Зарегистрирован:
Вт, июн 22 2010, 08:28
Сообщения: 19
Добрый день!
У меня очередной детский вопрос. Есть некий отчёт в BEx, в котором строки свёрнуты в некую иерархию. При открытии отчёта в Excel требуется увеличить высоту строк -- при этом часть кнопок-треугольников растягивается и смещается.
Изображение
Хочется, чтобы выглядело красиво :)


Пометить тему как нерешенную
Вернуться к началу
 Профиль Отправить email  
 
 Заголовок сообщения: Re: Кнопки иерархии в Excel
СообщениеДобавлено: Ср, авг 25 2010, 09:05 
Специалист
Специалист

Зарегистрирован:
Пн, авг 10 2009, 14:26
Сообщения: 107
Это пример про перенос:

Sub for_ytrewq()
With Cells(1, 1)
.Value = "При открытии отчёта в Excel требуется увеличить высоту строк -- при этом часть кнопок-треугольников растягивается и смещается."
.WrapText = True
End With
Rows(1).EntireRow.AutoFit
End Sub

А смещение и размер кнопок дожен настраиваться в Format кнопки \ Properties \ Object positioning

Надеюсь, что это поможет


Пометить тему как нерешенную
Вернуться к началу
 Профиль Отправить email  
 
 Заголовок сообщения: Re: Кнопки иерархии в Excel
СообщениеДобавлено: Чт, авг 26 2010, 04:14 
Начинающий
Начинающий

Зарегистрирован:
Вт, июн 22 2010, 08:28
Сообщения: 19
VVL написал(а):
Это пример про перенос:

Что-то подобное у меня и делается, просто не стал приводить всю строку, в некоторых ячейках есть достаточно большие значения, поэтому задал ширину столбца и включил перенос по словам.
VVL написал(а):
А смещение и размер кнопок дожен настраиваться в Format кнопки \ Properties \ Object positioning

В формате рисунка можно поиграть со свойствами, но это приводит к тому, что треугольник не растягивается, но смещается.
Изображение


Пометить тему как нерешенную
Вернуться к началу
 Профиль Отправить email  
 
 Заголовок сообщения: Re: Кнопки иерархии в Excel
СообщениеДобавлено: Пт, авг 27 2010, 12:18 
Специалист
Специалист

Зарегистрирован:
Пн, авг 10 2009, 14:26
Сообщения: 107
ytrewq написал(а):
это приводит к тому, что треугольник не растягивается, но смещается.
Чтобы не смещался, нужно подвинуть треугольник так, чтобы верхний край треугольника был выше этой строки.


Пометить тему как нерешенную
Вернуться к началу
 Профиль Отправить email  
 
 Заголовок сообщения: Re: Кнопки иерархии в Excel  Тема решена
СообщениеДобавлено: Вт, авг 31 2010, 04:12 
Начинающий
Начинающий

Зарегистрирован:
Вт, июн 22 2010, 08:28
Сообщения: 19
В общем, примерно так и сделал. Немного опустил все рисунки и задал свойства привязки объекта к фону -- перемещать, но не изменять размеры. Не идеально, но не решил как выбрать только кнопки-треугольники.


Пометить тему как нерешенную
Вернуться к началу
 Профиль Отправить email  
 
 Заголовок сообщения: Re: Кнопки иерархии в Excel
СообщениеДобавлено: Пн, окт 11 2010, 12:43 
Почетный гуру
Почетный гуру
Аватара пользователя

Зарегистрирован:
Вт, июл 03 2007, 10:26
Сообщения: 486
Откуда: Kazakhstan, Astana
Пол: Мужской
ytrewq написал(а):
В общем, примерно так и сделал. Немного опустил все рисунки и задал свойства привязки объекта к фону -- перемещать, но не изменять размеры. Не идеально, но не решил как выбрать только кнопки-треугольники.

Выбрать кнопки-треугольники иерархии можно так =
ActiveSheet.DrawingObjects.Select
Либо, вручную =
Правка => Перейти => Выделить => Объекты.
Ну и уже делать с ними что хотите.
Давным давно отвечал на такой вопрос :D

_________________
"Great minds discuss ideas. Average minds discuss events. Small minds discuss people-Eleanor Roosevelt--Knowledge is to share, Keep it free, Keep sharing"


Пометить тему как нерешенную
Вернуться к началу
 Профиль  
 
 Заголовок сообщения: Re: Кнопки иерархии в Excel
СообщениеДобавлено: Пн, окт 11 2010, 16:56 
Младший специалист
Младший специалист

Зарегистрирован:
Вт, июн 06 2006, 09:49
Сообщения: 55
Можно например так менять свойства:

uRn.Address = 'Область запроса


Call Resize_Shape(resultArea)

Sub Resize_Shape(uRn As Range)

Dim Sh As Shape
With ThisWorkbook.Worksheets("Лист").Range(uRn.Address)
For Each Sh In .Shapes
Sh.Placement = xlMove
Next Sh
End With

End Sub


Пометить тему как нерешенную
Вернуться к началу
 Профиль  
 
 Заголовок сообщения: Re: Кнопки иерархии в Excel
СообщениеДобавлено: Ср, ноя 03 2010, 13:10 
Начинающий
Начинающий

Зарегистрирован:
Вт, июн 22 2010, 08:28
Сообщения: 19
Редко читаю форум, только сейчас увидел ответы :)
ActiveSheet.DrawingObjects.Select -- выделит как раз-таки все рисунки, в том числе те, с которыми ничего не надо делать.
Делал почти так как советовал коллега evan, только чтобы не возиться с определением области запроса, ограничил объекты по имени:
Code:
Dim iShape As Shape
For Each iShape In ActiveSheet.Shapes
    If iShape.Name Like "BEx*" Then
        iShape.IncrementTop 1
        iShape.Placement = xlMove
    End If


Пометить тему как нерешенную
Вернуться к началу
 Профиль Отправить email  
 
Показать сообщения за:  Поле сортировки  
Начать новую тему Ответить на тему  [ Сообщений: 8 ] 

Часовой пояс: UTC + 3 часа


Кто сейчас на конференции

Сейчас этот форум просматривают: Ahrefs [Bot]


Вы не можете начинать темы
Вы не можете отвечать на сообщения
Вы не можете редактировать свои сообщения
Вы не можете удалять свои сообщения
Вы не можете добавлять вложения

Найти:
Перейти:  
cron
Powered by phpBB © 2000, 2002, 2005, 2007 phpBB Group
Русская поддержка phpBB