九色国产,午夜在线视频,新黄色网址,九九色综合,天天做夜夜做久久做狠狠,天天躁夜夜躁狠狠躁2021a,久久不卡一区二区三区

日常工作中經(jīng)常會碰到EXCEL單元格插入圖片；特別是從事商品人員，無論是訂單制作，銷售排行榜、暢滯銷排行、還是主推款介紹等等都會要求插入圖片，一個一個插入會很麻煩。今天小編與您分享使用VBA語句執(zhí)行圖片批量導(dǎo)入，很簡單也會很容易達(dá)成。

先看看效果吧

第一步：將單元格大小調(diào)整好，圖形插入的時候會自動根據(jù)單元格大小調(diào)整圖片大小

第二步：選中要插入圖片的對應(yīng)款號單元格，不要圖省事直接選中列，那樣你的電腦會被卡死的（貨號與圖片文件名稱必須一致）

再點擊綠色箭頭  或者按F5執(zhí)行

Sub 單元格插入圖片()
On Error Resume Next
Dim M As Range, fd, t
Set fd = Application.FileDialog(msoFileDialogFolderPicker)
If fd.Show = -1 Then
      t = fd.SelectedItems(1)
    Else
      Exit Sub
    End If
For Each M In Selection
  If Not IsEmpty(M) Then
    M.MergeArea.Select
    ML = M.MergeArea.Left
    MT = M.MergeArea.Top
    MW = M.MergeArea.Width
    MH = M.MergeArea.Height
    ActiveSheet.Shapes.AddShape(msoShapeRectangle, ML, MT, MW, MH).Select
    Selection.ShapeRange.Fill.UserPicture t & '\' & M.Text & '.jpg'
   End If
Next
End Sub

第五步：在彈出來的瀏覽窗口找到圖片所在文件夾后，點確定

是不很簡單，當(dāng)然你不用糾結(jié)哪個代碼是什么意思，用就好了。學(xué)起來確實要點時間，如果真想學(xué)，也可以學(xué)會的。

以下是我做的“常用工具”（傻瓜式的操作）只要轉(zhuǎn)發(fā)朋友圈并10贊就可免費得到我的常用工具哦!

 

可以加我個人微信哦（暗號：EXCEL)