powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Excel - Картинку вставлять в начало
4 сообщений из 4, страница 1 из 1
Excel - Картинку вставлять в начало
    #36923442
Krech791
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Добрый день!
Помогите побороть картинки в Excele
Во-первых пришлось избавиться от Select в классе Range - ругается при нескольких открытых документах - Невозможно получить свойство Select класса Range
Во-вторых сделала вставку картинки на первый лист
Sh1.Pictures.Insert(File2).Select
Selection = ExcelApp.Select
Selection.Width = 300
Selection.Height = 50
На первом листе вроде как уменьшается. Потом делаю все тоже самое на второй лист Sh2 - нифига не уменьшается
В-третьих у меня вставляется в самый верх, а у пользователя посередине файла.
(Напоминаю, что Select класса Range не работает)
думала добавить
Selection.Top = 0
Selection.Left = 0
Но на второй странице все равно Width и Height не срабатывают.
...
Рейтинг: 0 / 0
Excel - Картинку вставлять в начало
    #36923491
Krech791
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Проверила - Select остался почему-то на первом рисунке, как его убрать можно?
...
Рейтинг: 0 / 0
Excel - Картинку вставлять в начало
    #36923689
Фотография The_Prist
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Krech791,

Потому что работать надо не с выделением, а с объектом:

Код: plaintext
1.
2.
3.
4.
dim MyPic as object,Sh1 as object
Set Sh1 = ExcelApp.workbooks("Книга1.xls").Sheets( 1 )
set MyPic = Sh1.Pictures.Insert(File2)
MyPic.Width =  300 
MyPic.Height =  50 
т.к. Вы все же работаете из другого приложения, про Select-ы лучше вообще забыть...

Чтобы указать метоположение картинки(например в А1)
Код: plaintext
MyPic.Top = Sh1.Range("A1").Top
...
Рейтинг: 0 / 0
Excel - Картинку вставлять в начало
    #36923784
Krech791
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
The_Prist,

Огромаднейшее спасибо, и ведь могла бы и сама догадаться, но почему-то подcтавляла
MyPic = Sh2.Pictures.Insert(File2).Select
...
Рейтинг: 0 / 0
4 сообщений из 4, страница 1 из 1
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Excel - Картинку вставлять в начало
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]