Работает когда в UserForm1.Image7 есть картинка. Когда нет - выдаёт ошибку. - Microsoft Office Excel

Вадим12091965 · 27.05.2020, 12:42

Здравствуйте. Нашёл код в интернете. Работает когда в UserForm1.Image7 есть картинка. Когда нет - выдаёт ошибку. Как убрать ошибку: есть картинка - копируем на лист; нет картинки - тоже неплохо, код работает дальше?

Код:

 Dim FileName As String
    Dim Width As Single
    Dim Height As Single
    FileName = Environ("TEMP") & "\img_" & Mid(Rnd, 3) & ".bmp"
    Height = Me.Image7.Height
    Width = Me.Image7.Width
    Call SavePicture(Me.Image7.Picture, FileName)
    Sheets("Итог").Shapes.AddPicture FileName, msoFalse, msoTrue, 600, 50, Width, Height

Aleksandr H. · 27.05.2020, 15:26

Код:

On Error Resume Next

Вадим12091965 · 27.05.2020, 15:57

Cпасибо

27.05.2020, 12:42	#1
Вадим12091965 Форумчанин Регистрация: 21.10.2012 Сообщений: 143	Работает когда в UserForm1.Image7 есть картинка. Когда нет - выдаёт ошибку. Здравствуйте. Нашёл код в интернете. Работает когда в UserForm1.Image7 есть картинка. Когда нет - выдаёт ошибку. Как убрать ошибку: есть картинка - копируем на лист; нет картинки - тоже неплохо, код работает дальше? Код: `Dim FileName As String Dim Width As Single Dim Height As Single FileName = Environ("TEMP") & "\img_" & Mid(Rnd, 3) & ".bmp" Height = Me.Image7.Height Width = Me.Image7.Width Call SavePicture(Me.Image7.Picture, FileName) Sheets("Итог").Shapes.AddPicture FileName, msoFalse, msoTrue, 600, 50, Width, Height`

27.05.2020, 15:26	#2
Aleksandr H. 2 the Nation Glory Старожил Регистрация: 27.05.2014 Сообщений: 3,289	Код: `On Error Resume Next` Кто умер, но не забыт, тот бессмертен. Лао-Цзы.

Опции темы	Поиск в этой теме
Версия для печати Отправить по электронной почте	Поиск в этой теме: Расширенный поиск

Похожие темы
Тема	Автор	Раздел	Ответов	Последнее сообщение
Assembler и С - Задание "бегущий огонек" на 8 светодиодах, когда кнопка отжата бежит в одну сторону, когда нажата в другую.	klark.charlz	Assembler - Ассемблер (FASM, MASM, WASM, NASM, GoASM, Gas, RosAsm, HLA) и не рекомендуем TASM	3	15.10.2019 22:25
когда написал код про прыжки,хочу открыть игру,но просто чёрный экран,а вот когда нажимаю на "Крестик" вижу этот квадратик который в игре на секунду,и всё	SashaBiven	Python	1	05.12.2018 08:30
В модуле "uses" не работает "cpwin" когда провожу компиляцию (работает в программе Geany) выдает ошибку.	Maksim84984	Помощь студентам	0	11.11.2018 20:28
Почему когда я вешаю запрос на форму, то в ответ приходит error, а когда на див, то success?	Sentim	JavaScript, Ajax	2	13.05.2017 09:03
Как узнать когда браузер скачивает, а когда нет?	iPod	Работа с сетью в Delphi	1	07.05.2007 15:16

27.05.2020, 15:57	#3
Вадим12091965 Форумчанин Регистрация: 21.10.2012 Сообщений: 143	Cпасибо