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

Часовой пояс: 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 часа


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

Сейчас этот форум просматривают: нет зарегистрированных пользователей


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

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