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

т.е. чтобы пользователь ввел даннные в TextBox , и вставилась та картинка, которую прописал пользователь в TextBox'е
...
Рейтинг: 0 / 0
20.11.2006, 14:42:47
    #34141060
vbapro
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Вопрос по TextBox
...
Рейтинг: 0 / 0
20.11.2006, 14:46:44
    #34141084
vbapro
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Вопрос по TextBox
картинку может так лучше вставлять?
Код: plaintext
ActiveSheet.Pictures.Insert TextBox1.Value
...
Рейтинг: 0 / 0
20.11.2006, 14:50:04
    #34141098
dartvaider
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Вопрос по TextBox
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
20.11.2006, 14:53:12
    #34141106
dartvaider
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Вопрос по TextBox
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
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Вопрос по TextBox / 5 сообщений из 5, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


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