Гость
Целевая тема:
Создать новую тему:
Автор:
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Как в Excel вставить картинку программно ? / 12 сообщений из 12, страница 1 из 1
15.11.2006, 16:27
    #34130877
dartvaider
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как в Excel вставить картинку программно ?
Проблема такая можно ли макросом сделать обзор для добавления картинки в четкие координаты листа?
Т.е. чтбы нажать на кнопку , вылетало сообщение для выбора нужной картинки и эта картинка вставилась в определенный столбец, определенное поле?
...
Рейтинг: 0 / 0
15.11.2006, 16:50
    #34130974
svetolux
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как в Excel вставить картинку программно ?
dartvaiderПроблема такая можно ли макросом сделать обзор для добавления картинки в четкие координаты листа?
Т.е. чтбы нажать на кнопку , вылетало сообщение для выбора нужной картинки и эта картинка вставилась в определенный столбец, определенное поле?

Запиши макрос, проделав это вручную, а потом посмотри код и подкорректируй, если надо.
...
Рейтинг: 0 / 0
15.11.2006, 16:58
    #34131014
dartvaider
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как в Excel вставить картинку программно ?
svetolux dartvaiderПроблема такая можно ли макросом сделать обзор для добавления картинки в четкие координаты листа?
Т.е. чтбы нажать на кнопку , вылетало сообщение для выбора нужной картинки и эта картинка вставилась в определенный столбец, определенное поле?

Запиши макрос, проделав это вручную, а потом посмотри код и подкорректируй, если надо.

записал , а как можно сделать чтобы из TextBox'a можно было брать название фотографии?
т.е. вот Макрос:
Код: plaintext
1.
2.
3.
 ActiveSheet.Pictures.Insert("название фотографии.jpg").Select
 Selection.ShapeRange.IncrementLeft - 609 #
 Selection.ShapeRange.IncrementTop - 224 . 25 
 Selection.ShapeRange.IncrementTop  9 #
можно ли вместо Insert("название фотографии.jpg") вставить данные из TextBox'a ...

Звыняйте с синтаксисом бока :(
...
Рейтинг: 0 / 0
15.11.2006, 17:06
    #34131050
vbapro
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как в Excel вставить картинку программно ?
...
Рейтинг: 0 / 0
15.11.2006, 17:15
    #34131085
dartvaider
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как в Excel вставить картинку программно ?
...
Рейтинг: 0 / 0
15.11.2006, 17:20
    #34131109
vbapro
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как в Excel вставить картинку программно ?
...
Рейтинг: 0 / 0
20.11.2006, 09:57
    #34139989
dartvaider
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как в Excel вставить картинку программно ?
vbapro dartvaider vbapro http://www.sql.ru/forum/actualthread.aspx?tid=362514
модная линка :)

))))))))))))))
http://www.sql.ru/forum/actualthread.aspx?tid=356147

ну всё равно не получаетя вставить на четкие координаты листа :(
...
Рейтинг: 0 / 0
Период между сообщениями больше года.
18.08.2013, 00:56
    #38369915
jeka_piter
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как в Excel вставить картинку программно ?
dartvaider,

Доброго времени суток! Искал по форму, либо плохо искал либо темы не было такой, решил сразу у грамотных людей спросить. Есть вопрос. Во вложенном счете на оплату выделил красным ячейку, в которую необходимо нажимать для того чтобы ровно вставилась PND заготовка с печатью организации и подписями руководителя с последующим сохранением в PDF. Так вот - реально ли создать макрос, который бы понимал адрес этой самой ячейки автоматически, так как каждый счет на оплату отличается кол-ом строк с товаром и соответственно с каждым счетом адрес ячейки изменяется. Буду признателен за ответ.
...
Рейтинг: 0 / 0
18.08.2013, 07:24
    #38369940
kuklp
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как в Excel вставить картинку программно ?
jeka_piter, реально.
Код: vbnet
1.
 Set r = Cells(Cells.Find("Итого:", , xlValues, xlPart).Row, 4)


или
Код: vbnet
1.
r = Cells(Cells.Find("Итого:", , xlValues, xlPart).Row, 4).Address
...
Рейтинг: 0 / 0
18.08.2013, 12:31
    #38370004
jeka_piter
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как в Excel вставить картинку программно ?
kuklp,

спасибо, попробовал применить, конечно вставляет немного не туда куда хотельсь бы, но в целом уже хорошо. Только вот почему то при попытке вставить подпись в другой счет (во вложении), где кол-во строк будет больше - печать вставляется не по адресу слова Итого .... а выше, туда куда и в первом случае, тоесть такое ощущение, что не привязалась картинка к Итого.
...
Рейтинг: 0 / 0
22.08.2013, 11:39
    #38374322
jeka_piter
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как в Excel вставить картинку программно ?
kuklp,

разобрался с поиском строки со словом "Итого:", осталось указать переход в 4-й столбец на этой строчке, не подскажете как ? На ваш предыдущий вариант - .Row, 4 - ругается, выделяет запятую синтаксической ошибкой, а без нее - ничего не происходит.
...
Рейтинг: 0 / 0
22.08.2013, 11:40
    #38374327
jeka_piter
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как в Excel вставить картинку программно ?
kuklp,

поиск писал так :
Dim r As Range
Dim foundCell As Range

Set r = ActiveSheet.Range("A1:AL200")
Set foundCell = r.Find("Итого:", LookIn:=xlValues)
If Not foundCell Is Nothing Then
foundCell.Select
Else
MsgBox "String not found."
End If
...
Рейтинг: 0 / 0
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Как в Excel вставить картинку программно ? / 12 сообщений из 12, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


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