用程序批量插入照片，把单元格边框给挡住了，打印出来没有黑色边框看不见，求大神

redstarspace

用程序批量插入照片，把单元格边框给挡住了，打印出来没有黑色边框看不见，求大神帮忙，比如让照片小一点或者其他方法，由于程序不是我自己写的，看不太懂，请各位高手帮忙看看

蓝桥玄霜

1. Sub 贴照片(ByVal sh As Worksheet, ByVal rng As Range, ByVal sFile As String)
   
2. '
   
3.     Dim photo As Picture
   
4.    
   
5.     On Error GoTo errHandler
   
6.    
   
7.     Set photo = sh.Pictures.Insert(ThisWorkbook.Path & "\考生相片" & sFile & ".jpg")
   
8.    
   
9.     rng.Cells(1) = sFile
   
10.    
    
11.     With photo
    
12.         .Name = sFile
    
13.         .ShapeRange.LockAspectRatio = msoFalse
    
14.         .Top = rng.Top + 1
    
15.         .Left = rng.Left + 1
    
16.         .Width = rng.Width - 2
    
17.         .Height = rng.Height - 2
    
18.     End With
    
19.    
    
20.     Exit Sub
    
21.    
    
22. errHandler:
    
23.     rng.Cells(1) = "无照片"
    
24.    
    
25. End Sub
    

复制代码

02761752696

你把 这段  贴照片的代码  改一下：

1.     With photo
   
2.         .Name = sFile
   
3.         .ShapeRange.LockAspectRatio = msoFalse
   
4.         .Top = rng.Top + 2 '纵坐标
   
5.         .Left = rng.Left + 2 '横坐标
   
6.         .Width = rng.Width - 4 '图片宽
   
7.         .Height = rng.Height - 4 '图片高
   
8.     End With

复制代码

02761752696

  贴照片的部分改一下  
  With photo
        .Name = sFile
        .ShapeRange.LockAspectRatio = msoFalse
        .Top = rng.Top + 2 '纵坐标
        .Left = rng.Left + 2 '横坐标
        .Width = rng.Width - 4 '图片宽
        .Height = rng.Height - 4 '图片高
    End With

02761752696

代码审核  ，看图片  效果

redstarspace

蓝桥玄霜 发表于 2018-8-12 09:12

谢谢  大哥  专家  大神

redstarspace

02761752696 发表于 2018-8-12 10:41
代码审核  ，看图片  效果

谢谢小姐姐

jiminyanyan

进来看一下。。。。。

minren118

可以关注一下我写的插件【Excel催化剂】，插入图片的方式很新颖，用的是窗体控件的形式，VSTO开发的，图片可以带事件，当然你这个边框问题我也肯定已经考虑到