乡下人产国偷v产偷v自拍,国产午夜片在线观看,婷婷成人亚洲综合国产麻豆,久久综合给合久久狠狠狠9

  • <output id="e9wm2"></output>
    <s id="e9wm2"><nobr id="e9wm2"><ins id="e9wm2"></ins></nobr></s>

    • 分享

      【20190129】- 在Excel名冊(cè)中自動(dòng)批量插入照片

       L羅樂(lè) 2019-01-29

      大家好,我是中藥黨。

       

      馬上就過(guò)春節(jié)了,先祝各位一直陪伴走來(lái)的小伙伴們新年快樂(lè),過(guò)春節(jié)就好好休息放松,有張有弛才能更好地學(xué)習(xí)進(jìn)步。

       

      今天我們分享一個(gè)簡(jiǎn)單的Excel自動(dòng)批量插入圖片的技巧,雖然很簡(jiǎn)單,但在工作中還是很常用的,案例如下:

      現(xiàn)在有一個(gè)Excel員工名冊(cè),還有一個(gè)文件夾存放著員工照片,現(xiàn)在需要將員工照片批量插入名冊(cè)中。




      在日常工作中經(jīng)常需要在工作表插入圖片,并且有的時(shí)候需要在指定位置插入大量圖片,通過(guò)手工操作的方式來(lái)進(jìn)行這些繁瑣的工作既要浪費(fèi)大量的時(shí)間而且非常容易出錯(cuò),如果用VBA就能快速完成這一系列繁瑣的操作。


      1.定義相關(guān)變量

      iRow:用來(lái)循環(huán)遍歷的行號(hào)

      photo:用來(lái)臨時(shí)存儲(chǔ)每次循環(huán)插入到工作表的圖片對(duì)象

      Target:用來(lái)設(shè)定照片放置的基準(zhǔn)單元格

      pic_addr:用來(lái)設(shè)定照片在計(jì)算機(jī)的存放路徑

      下圖設(shè)置的是絕對(duì)路徑,也可以通過(guò)Thisworkbook.path設(shè)置相對(duì)路徑更加方便移植。



      2.按行遍歷插入照片

      ①按行遍歷數(shù)據(jù)表

      ②將與當(dāng)前行姓名列名稱相同的圖片插入

      ③設(shè)置當(dāng)前行的基準(zhǔn)單元格

      ④再將剛插入的照片按照基準(zhǔn)單元格設(shè)置位置和大小



      完整代碼如下:

      1Sub 批量插入圖片()
      2
      3    Dim iRow As Integer
      4    Dim photo As Picture
      5    Dim Target As Range
      6    Dim pic_addr As String
      7
      8    pic_addr = ThisWorkbook.Path & '\pic\'
      9
      10
      11    With ActiveSheet
      12        For iRow = 2 To .Cells(655351).End(xlUp).Row
      13
      14          Set photo = .Pictures.Insert(pic_addr & .Cells(iRow, 2) _
      15          & '.jpg')
      16
      17          Set Target = .Cells(iRow, 5)
      18
      19          With photo
      20            .Top = Target.Top
      21            .Left = Target.Left
      22            .Width = Target.Width
      23            .Height = Target.Height
      24          End With
      25        Next
      26    End With
      27End Sub


      我們看一下執(zhí)行的效果:


        本站是提供個(gè)人知識(shí)管理的網(wǎng)絡(luò)存儲(chǔ)空間,所有內(nèi)容均由用戶發(fā)布,不代表本站觀點(diǎn)。請(qǐng)注意甄別內(nèi)容中的聯(lián)系方式、誘導(dǎo)購(gòu)買等信息,謹(jǐn)防詐騙。如發(fā)現(xiàn)有害或侵權(quán)內(nèi)容,請(qǐng)點(diǎn)擊一鍵舉報(bào)。
        轉(zhuǎn)藏 分享 獻(xiàn)花(0

        0條評(píng)論

        發(fā)表

        請(qǐng)遵守用戶 評(píng)論公約

        類似文章 更多