大师，多给小花求助关于图片上传问题

EXCE;纯净水

大师，多给小花求助关于图片上传问题

vbee

Sub 宏1()

    With ActiveSheet.Pictures.Insert("D:\图片\" & [a1] & ".jpg")
    .Top = [a12].Top
    .Left = [a12].Left
    .Width = [a12].Width
    End With
End Sub

vbee

1. Sub 宏1()
   
2. 
   
3.     With ActiveSheet.Pictures.Insert("D:\图片" & [a1] & ".jpg")
   
4.     .Top = [a12].Top
   
5.     .Left = [a12].Left
   
6.     .Width = [a12].Width
   
7.     End With
   
8. End Sub
   

复制代码

EXCE;纯净水

vbee 发表于 2018-7-3 08:02

您好，大师，您的QQ多少？我找到了一段很好的代码您帮我看看

EXCE;纯净水

vbee 发表于 2018-7-3 08:01
Sub 宏1()

    With ActiveSheet.Pictures.Insert("D:\图片\" & [a1] & ".jpg")

文件名不符合会出错
还有就是A12是合并单元格显示的不太对