powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Вопрос по TextBox
5 сообщений из 5, страница 1 из 1
Вопрос по TextBox
    #34141021
Фотография dartvaider
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Я вставляю картинку в документ Excel через макрос:
Код: plaintext
ActiveSheet.Shapes.AddPicture "D:\ИМЯ_КАРТИНКИ.gif"
можно ли сделать так , чтобы ИМЯ_КАРТИНКИ можно было указывать с TextBox'a

т.е. чтобы пользователь ввел даннные в TextBox , и вставилась та картинка, которую прописал пользователь в TextBox'е
...
Рейтинг: 0 / 0
Вопрос по TextBox
    #34141060
vbapro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
...
Рейтинг: 0 / 0
Вопрос по TextBox
    #34141084
vbapro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
картинку может так лучше вставлять?
Код: plaintext
ActiveSheet.Pictures.Insert TextBox1.Value
...
Рейтинг: 0 / 0
Вопрос по TextBox
    #34141098
Фотография dartvaider
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
vbaproкартинку может так лучше вставлять?
Код: plaintext
ActiveSheet.Pictures.Insert TextBox1.Value

Да спасибо теперь картинка вставляется, но не получается ей дать определенные координаты :


Код: plaintext
1.
ActiveSheet.Pictures.Insert TextBox1.Value
ActiveSheet.Pictures.Insert TextBox1.Value, True, True,  97 ,  7 ,  85 ,  114 

2 строчка не работает :( ранее было

Код: plaintext
ActiveSheet.Shapes.AddPicture "D:\ИМЯ_КАРТИНКИ.gif", True, True,  96 ,  346 ,  85 ,  114 
всё работало, а сейчас :(
...
Рейтинг: 0 / 0
Вопрос по TextBox
    #34141106
Фотография dartvaider
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
dartvaider vbaproкартинку может так лучше вставлять?
Код: plaintext
ActiveSheet.Pictures.Insert TextBox1.Value

Да спасибо теперь картинка вставляется, но не получается ей дать определенные координаты :


Код: plaintext
1.
ActiveSheet.Pictures.Insert TextBox1.Value
ActiveSheet.Pictures.Insert TextBox1.Value, True, True,  97 ,  7 ,  85 ,  114 

2 строчка не работает :( ранее было

Код: plaintext
ActiveSheet.Shapes.AddPicture "D:\ИМЯ_КАРТИНКИ.gif", True, True,  96 ,  346 ,  85 ,  114 
всё работало, а сейчас :(

Извеняюсь протупил :) всем большое спасибо!
...
Рейтинг: 0 / 0
5 сообщений из 5, страница 1 из 1
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Вопрос по TextBox
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


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