Домашняя страница Undo Do New Save Карта сайта Обратная связь Поиск по форуму
МИР MS EXCEL - Гость.xls

Вход

Регистрация

Напомнить пароль

 

= Мир MS Excel/Загрузка картинки через форму в ячейку - Мир MS Excel

Старая форма входа
  • Страница 1 из 1
  • 1
Модератор форума: _Boroda_, Manyasha, SLAVICK, китин  
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Загрузка картинки через форму в ячейку (Формулы/Formulas)
Загрузка картинки через форму в ячейку
peklis Дата: Воскресенье, 24.01.2021, 10:10 | Сообщение № 1
Группа: Пользователи
Ранг: Прохожий
Сообщений: 5
Репутация: 0 ±
Замечаний: 0% ±

Добрый день уважаемые Гуру Екселя, Окажите милость нашел на просторах интернета (https://www.planetaexcel.ru/forum/index.php?PAGE_NAME=message&FID=1&TID=112668&MID=936046#message936046) готовое практически под свои нужды решения, но допилить не могу, Нужно чтобы через форму в ячейку загружалась картинка там один добрый человек выложил код, но я как ни пробую вставить у меня не получается.Помогите если не трудно, вот код

[vba]
Код
Private Sub CommandButton1_Click()
With ActiveSheet
x = Application.Max(1, .Cells(.Rows.Count, 2).End(xlUp).Row, _
.Cells(.Rows.Count, 3).End(xlUp).Row, .Cells(.Rows.Count, 4).End(xlUp).Row, _
.Cells(.Rows.Count, 5).End(xlUp).Row, .Cells(.Rows.Count, 6).End(xlUp).Row) + 1

.Cells(x, 1).Value = x - 1
.Cells(x, 3).Value = TextBox2.Text
.Cells(x, 4).Value = TextBox3.Text
.Cells(x, 5).Value = TextBox4.Text
.Cells(x, 6).Value = TextBox9.Text
.Cells(x, 7).Value = TextBox10.Text
.Cells(x, 8).Value = TextBox7.Text
.Cells(x, 9).Value = TextBox6.Text
If UCase(TextBox8.Value) <> "FALSE" Then
With .Cells(x, 2)
ActiveSheet.Shapes.AddPicture TextBox8.Value, False, True, .Left + 2, .Top + 2, .Width - 4, .Height - 4
End With
End If

End With
Unload Me

End Sub

Private Sub CommandButton2_Click()
Unload Me
End Sub

Private Sub CommandButton3_Click()
TextBox8.Value = Application.GetOpenFilename
If UCase(TextBox8.Value) <> "FALSE" Then
Image1.Picture = LoadPicture(TextBox8.Value)
End If
End Sub
[/vba]

Заранее спасибо за помощь
К сообщению приложен файл: 111-1-.xlsm(25.0 Kb)


Сообщение отредактировал peklis - Воскресенье, 24.01.2021, 10:59
 
Ответить
СообщениеДобрый день уважаемые Гуру Екселя, Окажите милость нашел на просторах интернета (https://www.planetaexcel.ru/forum/index.php?PAGE_NAME=message&FID=1&TID=112668&MID=936046#message936046) готовое практически под свои нужды решения, но допилить не могу, Нужно чтобы через форму в ячейку загружалась картинка там один добрый человек выложил код, но я как ни пробую вставить у меня не получается.Помогите если не трудно, вот код

[vba]
Код
Private Sub CommandButton1_Click()
With ActiveSheet
x = Application.Max(1, .Cells(.Rows.Count, 2).End(xlUp).Row, _
.Cells(.Rows.Count, 3).End(xlUp).Row, .Cells(.Rows.Count, 4).End(xlUp).Row, _
.Cells(.Rows.Count, 5).End(xlUp).Row, .Cells(.Rows.Count, 6).End(xlUp).Row) + 1

.Cells(x, 1).Value = x - 1
.Cells(x, 3).Value = TextBox2.Text
.Cells(x, 4).Value = TextBox3.Text
.Cells(x, 5).Value = TextBox4.Text
.Cells(x, 6).Value = TextBox9.Text
.Cells(x, 7).Value = TextBox10.Text
.Cells(x, 8).Value = TextBox7.Text
.Cells(x, 9).Value = TextBox6.Text
If UCase(TextBox8.Value) <> "FALSE" Then
With .Cells(x, 2)
ActiveSheet.Shapes.AddPicture TextBox8.Value, False, True, .Left + 2, .Top + 2, .Width - 4, .Height - 4
End With
End If

End With
Unload Me

End Sub

Private Sub CommandButton2_Click()
Unload Me
End Sub

Private Sub CommandButton3_Click()
TextBox8.Value = Application.GetOpenFilename
If UCase(TextBox8.Value) <> "FALSE" Then
Image1.Picture = LoadPicture(TextBox8.Value)
End If
End Sub
[/vba]

Заранее спасибо за помощь

Автор - peklis
Дата добавления - 24.01.2021 в 10:10
Pelena Дата: Воскресенье, 24.01.2021, 11:33 | Сообщение № 2
Группа: Админы
Ранг: Местный житель
Сообщений: 17510
Репутация: 3888 ±
Замечаний: ±

Excel 2010, 2016 & Mac Excel
Здравствуйте.
Откройте редактор VBA, в меню Tools -- References найдите ссылку, начинающуюся на MISSING, снимите с неё галку -- ОК.
Можно запускать макрос, только в файле у Вас макрос незаконченный, надо как в посте


"Черт возьми, Холмс! Но как??!!"
ЯД 41001765434816
 
Ответить
СообщениеЗдравствуйте.
Откройте редактор VBA, в меню Tools -- References найдите ссылку, начинающуюся на MISSING, снимите с неё галку -- ОК.
Можно запускать макрос, только в файле у Вас макрос незаконченный, надо как в посте

Автор - Pelena
Дата добавления - 24.01.2021 в 11:33
peklis Дата: Воскресенье, 24.01.2021, 11:50 | Сообщение № 3
Группа: Пользователи
Ранг: Прохожий
Сообщений: 5
Репутация: 0 ±
Замечаний: 0% ±

Pelena, Спасибо вам огромное.вы мне очень помогли - все получилось
 
Ответить
СообщениеPelena, Спасибо вам огромное.вы мне очень помогли - все получилось

Автор - peklis
Дата добавления - 24.01.2021 в 11:50
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Загрузка картинки через форму в ячейку (Формулы/Formulas)
  • Страница 1 из 1
  • 1
Поиск:

Яндекс цитирования Jobsora jooble
© 2010-2021 · Дизайн: MichaelCH · Хостинг от uCoz · При использовании материалов сайта, ссылка на www.excelworld.ru обязательна!