zoukankan      html  css  js  c++  java
  • 在excel中批量插入图片

    效果图:

      

    使用VBA:

    Sub 批量插入图片()
    Dim item As String '设置一个名为cfan字符串,将其作为图片路径变量
    Dim rng As Range
    Sheets("Sheet4").Select '选中要插入图片的工作表
    x = [a65536].End(xlUp).Row '取得最后一行的行号
    For i = 2 To x
    name = Cells(i, 2) '从第2列(即B列)得到图片名称,并以此名查找指定位置的图片
    cfan = "e:Folder" & "" & name & ".png" '指定图片实际保存位置和格式
    If Dir(item) <> "" Then
    Cells(i, 4).Select '图片需要插入到第4列
    ActiveSheet.Pictures.Insert(item).Select
    Set rng = Cells(i, 4) '根据单元格的大小调整图片
    With Selection
    .Top = rng.Top + 1
    .Left = rng.Left + 1
    .Width = rng.Width - 1
    .Height = rng.Height - 1
    End With
    End If
    Next
    End Sub
  • 相关阅读:
    github使用及介绍
    git分支 & git标签
    nginx配置文件参考
    PHP优化
    Nginx优化
    Git安装及基础命令使用
    JavaScript框架设计-node节点
    论文爬取(一)
    JAVA日报
    JAVA日报
  • 原文地址:https://www.cnblogs.com/feiyucha/p/11218556.html
Copyright © 2011-2022 走看看