Как да вмъкнете снимки в Excel с помощта на макрос

Макросите в Excel могат да изпълняват функции като вмъкване на снимки, копиране на данни от една клетка в друга и т.н. За да напишете ефективен макрос за вмъкване на изображения в Excel, ще трябва да използвате линия

Този често задаван въпрос ще ви преведе през стъпките за прилагане на този макрос към електронната ви таблица, за да се появят снимки.

Използвайте макрос за вмъкване на картини в Excel

За да използвате макрос за вмъкване на картини, трябва да започнете със следните предположения: имената на картини се намират в колона B, започвайки от B2; искате да поставите всяка снимка на различно място; къде да поставите картината, идентифицирана в колона B, се намира в col C, започвайки от C2.

Сега въведете следния код:

 Подкартина ()
Dim picname As String
Dim pasteAt As Integer
Dim lThisRow As Long
lThisRow = 2
Докато (клетки) (lThisRow, 2) "")
'Обхват ("A6"). Изберете "Това е мястото, където ще бъде поставена снимката
pasteAt = Cells (lThisRow, 3)
Клетки (pasteAt, 1). Изберете „Това е мястото, където ще бъде поставена снимката
'Dim picname As String
'picname = Range ("B6")' Това е името на картината
picname = Cells (lThisRow, 2) 'Това е името на картината
ActiveSheet.Pictures.Insert ("C: Потребители vbayat Моите документи vidabayat re-market" & picname & ".jpg"). Изберете "Път до къде се съхраняват снимките
'' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '
'Това преоразмерява картината
'' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '
С Избор
Ляв = Обхват ("A6"). Наляво
Най-горе = Обхват ("A6")
Лево = клетки (pasteAt, 1)
.Top = Клетки (pasteAt, 1)
.ShapeRange.LockAspectRatio = msoFalse
.ShapeRange.Height = 100 #
.ShapeRange.Width = 80 #
.ShapeRange.Rotation = 0 #
Край с
lThisRow = lThisRow + 1
контур
Range ( "A10"). Изберете
Application.ScreenUpdating = True
Изход Sub
ErrNoPhoto:
MsgBox "Не може да се намери снимка" "Показва полето за съобщение, ако не е намерена снимка
Изход Sub
Range ( "B20"). Изберете
Край Под