andrey-750 (Все сообщения пользователя)

Изменение размера картинки в колонтитуле

andrey-750 Пользователь Сообщений: 8 Регистрация: 15.02.2013	# 16.02.2019 01:23:51 Просто замените в коде "Header" на "Footer"
	Перейти

Изменение размера картинки в колонтитуле

andrey-750 Пользователь Сообщений: 8 Регистрация: 15.02.2013	# 14.09.2017 23:46:31 Супер!!! Именно то, что нужно! Спасибо.
	Перейти

Изменение размера картинки в колонтитуле

andrey-750

Пользователь

Сообщений: 8 Регистрация: 15.02.2013

14.09.2017 09:13:32

Цитата
Alemox написал: Максимум чего можно сделать это изменить размер картинки

Меня устроит. КАК???

Перейти

Изменение размера картинки в колонтитуле

andrey-750

Пользователь

Сообщений: 8 Регистрация: 15.02.2013

13.09.2017 18:03:28

Здравствуйте.
Вопрос в следующем:
Есть файл (см. аттач), колонтитул которого содержит картинку. Возможно ли (желательно программно!!!) изменить размеры/положение этой картинки на листе, примерно так, как это можно делать с картинкой в "теле" таблицы.
С уважением, Андрей

Перейти

Условное форматирование - бесконтрольное "размножение" правил, каждый раз дублируются и все правила условного форматирования

andrey-750

Пользователь

Сообщений: 8 Регистрация: 15.02.2013

09.11.2014 21:34:20

Решил проблему вот так:

Код

Sub Del_FormatConditions()
    Dim WsH As String, sh As Object
    
    On Error GoTo Err_
    
    WsH = "Имя_Листа"
    Set sh = Worksheets(WsH)

    Application.ScreenUpdating = False
    sh.Cells.FormatConditions.Delete
    sh.Range("$A$5:$A$7000").FormatConditions.Add(xlCellValue, 3, "=""Н""").Interior.Color = 10092543
    sh.Range("$A$5:$A$7000").FormatConditions.Add(xlCellValue, 3, "=""Ф""").Interior.Color = 13434777
    sh.Range("$A$5:$A$7000").FormatConditions.Add(xlCellValue, 3, "=""С""").Interior.Color = 16751052
    sh.Range("$A$5:$A$7000").FormatConditions.Add(xlCellValue, 3, "=""О""").Interior.Color = 15773696
    Application.ScreenUpdating = True
Err_:
End Sub

Перейти

andrey-750

Пользователь

Сообщений: 8 Регистрация: 15.02.2013

09.11.2014 20:03:01

2 RAN:
О-о-о-пс... Не работает... Не получается Вашим методом наложить несколько правил УФ на одну и ту же ячейку.
В случае перекрытия областей (а мне надо именно так, да и в Вашем примере тоже), сохраняется только последнее УФ. т.е. строчка

Код
Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _ SkipBlanks:=False, Transpose:=False

Затирает УФ, которое там находилось до неё...
Кроме того, она переносит ВСЕ форматы - не только условные (см. возвращенный пример.) - а этого тоже хотелось бы избежать - негоже, чтобы ни в чём неповинные ячейки вдруг перекрасились бы...

Так что, приём идей продолжается...

Перейти

andrey-750

Пользователь

Сообщений: 8 Регистрация: 15.02.2013

08.11.2014 19:31:37

Цитата
RAN пишет: все УФ удаляется, и копируется с листа форматы в нужные диапазоны (указаны в столбце В)

Спасибо! Именно то, что нужно!

Перейти

andrey-750

Пользователь

Сообщений: 8 Регистрация: 15.02.2013

08.11.2014 15:28:20

Проблема в следующем: Есть таблица Excel 2010. На диапазон ячеек (скажем $A$5:$A$7000) наложено несколько правил условного форматирования (скажем, если содержимое ячейки равно "Ф", цвет заливки должен быть 13434777, "Н" - 10092543, "С" - 16751052 и т.д.). Так вот, при вставке строки внутри этого диапазона (скажем 525 строки), количество правил УФ удваивается - добавляется каждое правило для вновь появившейся ячейки ($A$525), а диапазон действия старых правил разрывается: $A$5:$A$524;$A$526:$A$7001.
Таким образом, при активной работе с таблицей через некоторое время количество правил разрастается неимоверно, начинаются жуткие тормоза, и надо удалять все правила чохом, и создавать по-новой. Хотел записать эти действия (удаление/создание правил УФ) и вставить запуск макроса при каждом открытии книги, но собственным макрорекордером эта процедура почему-то не записывается :-(.
Кстати - если область действия - столбец целиком ($A:$A) всё в порядке - правила не "размножаются", но в моём случае это неприемлемо. Буду признателен, если кто-нибудь поможет с написанием скрипта - хотя бы какие свойства/методы использовать. Или другие методы решения проблемы...

Перейти