powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Вставка картинки в Эксель через OLE
3 сообщений из 3, страница 1 из 1
Вставка картинки в Эксель через OLE
    #34357261
Georgiy L.
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
'Выделяю ячейку
Range(liter + CStr(8 * i - 7)).Select();

' Вставляю картинку
shape = ActiveSheet.Shapes.AddShape(1,2,1,100,100);
shape.Fill.UserPicture(path);

Но она вставляется всегда только в верхний левый угол

Конечно я могу ее переместить
shape.IncrementLeft(200);

Но мне нужно переместить ее в выделенную ячейку

Господа профессионалы - помогите плиз
Другие методы через Selection.ShapeRange или ActiveSheet.Pictures.Insert(path).Select()
не подходят т.к. работаю через OLE (вылетает в ошибку)


Веду магазин на ASP.NET посмотрите - оцените.
www.001ru.ru
...
Рейтинг: 0 / 0
Вставка картинки в Эксель через OLE
    #34357653
vkodor
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Второй и третий аргумент метода "AddShape" разве не координаты?
Попробуй их поменять
Код: plaintext
Shape = ActiveSheet.Shapes.AddShape( 1 , Range(liter + CStr( 8  * i -  7 )).Left, Range(liter + CStr( 8  * i -  7 )).Top,  100 ,  100 )
...
Рейтинг: 0 / 0
Вставка картинки в Эксель через OLE
    #34358595
White Owl
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Georgiy L.'Выделяю ячейку
Range(liter + CStr(8 * i - 7)).Select();Это бессмысленое занятие.

Georgiy L.' Вставляю картинку
shape = ActiveSheet.Shapes.AddShape(1,2,1,100,100);
shape.Fill.UserPicture(path);Второй и третий аргументы - координаты объекта относительно листа.
Если хочешь делать относительно ячейки - прийдется заниматься арифметикой:
Код: plaintext
1.
2.
l = somerange.Left
t = somerange.Top
shape = ActiveSheet.Shapes.AddShape( 1 , l+ 2 , t+ 1 , 100 , 100 );
...
Рейтинг: 0 / 0
3 сообщений из 3, страница 1 из 1
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Вставка картинки в Эксель через OLE
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


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