Макрос, позволяющий вставить картинки

@aishe · Регистрация: 01.03.2019

Author24 — интернет-сервис помощи студентам

Помогите пожалуйста найти ошибку в коде. В VBA новичок и никак не могу понять, что делаю не так.

@GeoCod · 02.03.2019, 00:42

Лучше выложите файл

@aishe · 02.03.2019, 13:09 **[ТС]**

Спасибо! Проблема уже решена

@pashulka · 02.03.2019, 15:53

aishe, Высота строки имеет свой лимит, поэтому, если не хотите получить ошибку, то либо проверяйте, либо :

Visual Basic

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Address = "$A$2" Then
       Dim f$
       f = "C:\AppData\Roaming\Orbweb Inc\Image\" & Target & ".jpg"
       If Dir(f) = "" Then MsgBox "Нет картинки": Exit Sub
       Me.Pictures.Delete
       With Me.Pictures.Insert(f)
            Target.RowHeight = Application.Min(409, .Height)
            .Left = Target(1, 2).Left
            .Top = Target(1, 2).Top
            .Placement = xlMoveAndSize
       End With
    End If
End Sub

@aishe 0 / 0 / 0 Регистрация: 01.03.2019 Сообщений: 2
		1
	Excel Макрос, позволяющий вставить картинки 01.03.2019, 23:43. Показов 1011. Ответов 3 Метки нет (Все метки) Помогите пожалуйста найти ошибку в коде. В VBA новичок и никак не могу понять, что делаю не так. Миниатюры 0

@GeoCod 237 / 148 / 41 Регистрация: 26.01.2019 Сообщений: 545
	02.03.2019, 00:42	2
	Лучше выложите файл 0

@aishe 0 / 0 / 0 Регистрация: 01.03.2019 Сообщений: 2
	02.03.2019, 13:09 [ТС]	3
	Спасибо! Проблема уже решена 0

	02.03.2019, 15:53