Мой страшный сон - где-то на ходу необходимо быстренько написать макрос, а под рукой нет привычной:
- а это надежная синтакс-страница
- которая в нужном разделе хранится
- в файле, который не запропастится
- в папке, к которой легко обратиться
- в компьютере, что среди книжек теснится
- с которым надеюсь, ничто не случится
- в квартире, где я окопался как «Джек»
Итак, мне нужен удалённый доступ к моим "рыбам" (заготовкам VBA операндов). Почти все эти команды я уже показывала в текстах разных макросов, написанных для excel - игр. Но удобнее и быстрее сделать специальный раздел. И вот он!
Работа с картинками (формами, кнопками, фигурами, иконками):
tek = ActiveSheet.Shapes(Application.Caller).Name - определить имя нажатой иконки (она при этом не выделяется - выделенной считается только ячейка);
ActiveSheet.Shapes(tek).Select - выделить эту иконку, прежде чем производить с ней какие-либо действия;
Selection.ShapeRange.ZOrder msoSendToBack - переместить иконку на задний план (если, необходимо вывести на передний план другую);
Selection.ShapeRange.ZOrder msoBringToFront - переместить иконку на передний план;
ActiveSheet.Pictures.Insert(adr).Select - вставить в активную ячейку картинку, по адресу (adr)
Selection.Name = "опа" - присвоить выделенной картинке нужное имя
Selection.ShapeRange.Height = 482.25 - установить высоту картинки
Selection.ShapeRange.Width = 482.26 - установить ширину картинки
ActiveSheet.Shapes.SelectAll - выделить все картинки
Selection.Delete - удалить всё выделенное
Selection.OnAction = "СдвигЛ" - задать кнопке макрос
И ещё одна полезная функция. Прежде чем пытаться открыть файл, надо убедиться в его наличии по указанному адресу
If Dir(adr) = "" Then GoTo fin
Надеюсь, это может пригодиться не только мне.