Excel - makro, lai ievietotu attēlus darblapā

Izdevums
Risinājums

Izdevums

Es cenšos ievietot attēlus Excel kolonnā, izmantojot makro, kas ņem faila nosaukuma precizitāti no B2 šūnas un ievieto attēlu A2 šūnā. Piemēram: ja B2 satur N235, tad attēls, kas tiks ievietots A2, būtu N235.jpg no konkrētā maršruta Macro. Tas darbojas labi, ja vien mapē nav attēla ar tādu pašu nosaukumu kā mapē.

Es saņemu izpildlaika kļūdu 1004 un makro apstājas un nevar aizpildīt attēlu pēc šīs šūnas.

Risinājums

 Apakšizdevums ()
Dim picname Kā virkne
Dim pasteAt Kā Integer
Dim lThisRow As Long
lThisRow = 2
Dariet, kamēr (šūnas (lThisRow, 2) "")
pasteAt = lThisRow
Šūnas (pasteAt, 1) .Izvēlieties 'Šī ir vieta, kur tiks ievietots attēls
picname = Šūnas (lThisRow, 2) 'Šis ir attēla nosaukums
present = Dir ("C: Lietotāji Administrators Desktop LC" & picname & ".jpg")
Ja tas ir "", tad
ActiveSheet.Pictures.Insert ("C: Lietotāji Administrators Desktop LC" & picname & ".jpg").
'' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' ' '' '' '
'Tas maina attēla izmērus
'' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' ' '' '' '
Ar atlasi
'.Left = diapazons ("A6")
".Top = Range (" A6 ")
.Left = šūnas (pasteAt, 1)
.Top = šūnas (pasteAt, 1)
.ShapeRange.LockAspectRatio = msoFalse
.ShapeRange.Height = 100 #
.ShapeRange.Width = 130 #
.ShapeRange.Rotation = 0 #
Beigas ar
Vēl
Šūnas (pasteAt, 1) = "Nav atrasts neviens attēls"
Beigas Ja
lThisRow = lThisRow + 1
Loop
Diapazons ("A10")
Application.ScreenUpdating = True
Iziet no Sub
ErrNoPhoto:
MsgBox "Nevar atrast fotoattēlu" Rāda ziņojumu lodziņu, ja attēls nav atrasts
Iziet no Sub
Diapazons ("B20")
Beigt Sub