QZZN论坛

 找回密码
 注册会员

QQ登录

只需一步,快速开始

快捷登录

搜索
热搜: 面试 经验 真题
查看: 190|回复: 4
收起左侧

[求助答疑] VBA代码没实现相应的功能吗,求大神指点啊!!!!!

[复制链接]
发表于 12-12-11 21:39 | 显示全部楼层 |阅读模式

微信登录免注册,登录后有更多资源下载!

您需要 登录 才可以下载或查看,没有帐号?注册会员

x
EXCEL中批量打印表格1,表1中的数据为表2数据库中的数据,且表1中含有相应数据的图片,插入相应的宏后,只有第一张有图片,后面的就没有了,求大神指导。
附上代码:
Option Explicit
Public Sub ClearPicture(ws As Worksheet)
  Dim sPic As Shape
  For Each sPic In ws.Shapes
    If sPic.Type = msoPicture Then
      sPic.Delete
    End If
  Next
End Sub
Public Function AddPicture(sType As String, sId As String, cmWidth As Single, cmHeight As Single, position As Range) As Boolean
  Dim sFile As String, container As Range
  Dim pLeft As Single, pTop As Single, pWidth As Single, pHeight As Single
  
  sFile = ThisWorkbook.Path & "\" & sType & "\" & Trim(sId) & ".jpg"
  
  Set container = position.MergeArea
  
  pWidth = Application.CentimetersToPoints(cmWidth)
  pHeight = Application.CentimetersToPoints(cmHeight)
  pLeft = container.Left + (container.Width - pWidth) / 2
  pTop = container.Top + (container.Height - pHeight) / 2
  
  On Error Resume Next
  container.Worksheet.Shapes.AddPicture sFile, msoFalse, msoTrue, pLeft, pTop, pWidth, pHeight
  If Err.Number = 0 Then
    AddPicture = True
  Else
    AddPicture = False
  End If
  Err.Clear
End Function
赞赏鼓励作者
回复

使用道具 举报

你来错论坛了吧 骚年!
回复 支持 反对

使用道具 举报

 楼主| 发表于 12-12-12 08:59 | 显示全部楼层

回 阿尔帕西诺 的帖子

阿尔帕西诺:你来错论坛了吧 骚年! (12-12-12 08:26) 返回原楼层
坛子里潜伏着很多的高手!!!!
回复 支持 反对

使用道具 举报

发表于 12-12-12 11:59 | 显示全部楼层
这都被你发现了

内容来自[短消息]
回复 支持 反对

使用道具 举报

您需要登录后才可以回帖 登录 | 注册会员

本版积分规则

手机版|https版|QZZN ( 京ICP备11040856号-1|京公网安备11010802022760 )  

Powered by Discuz! , GMT+8, 17-5-23 05:37 0.031524 s, 13 queries , M On.

© 2005-2017 QZZN , 转载、商业使用需取得授权 联系我们

快速回复 返回顶部 返回列表