VBA插入图片后图片四周没有线条边框

cnkele

1. Sub 当前单元插入图片()
   
2. On Error Resume Next
   
3. Dim dress$
   
4.     Set dig = Application.FileDialog(msoFileDialogFolderPicker)
   
5.    With dig
   
6.          .Show
   
7.   dress = .SelectedItems(1)                 '选择文件夹地址
   
8.        End With
   
9. Dim MR As Range
   
10. For Each MR In Selection
    
11.   If Not IsEmpty(MR) Then
    
12.     MR.Select
    
13.     ML = MR.Left
    
14.     MT = MR.Top
    
15.     MW = MR.Width
    
16.     MH = MR.Height
    
17.     ActiveSheet.Shapes.AddShape(msoShapeRectangle, ML, MT, MW, MH).Select
    
18.     Selection.ShapeRange.Fill.UserPicture _
    
19.        dress & "" & MR.Value & ".jpg"     '设置地址所在目录下以当前单元内容为名称的.jpg图片
    
20.    End If
    
21. Next
    
22. End Sub

复制代码

这是坛友的一段代码，插入图片后四周有线条边框，有哪位知道怎么改代码去线条边框，如可以同时插入后变成1寸照片（2.5cm宽*3.5cm高）就更好了

剑指E

cnkele

剑指E 发表于 2024-5-14 22:51

谢谢，“数据源”这里完美实现了，但是发现插入到“学籍卡”这里R6单元格的照片右边和下面还是有黑线

剑指E

cnkele 发表于 2024-5-15 07:51
谢谢，“数据源”这里完美实现了，但是发现插入到“学籍卡”这里R6单元格的照片右边和下面还是有黑线

检查原图片是否有黑边，如果有，只能裁剪操作。

cnkele

我再研究下，谢谢