EXCEL怎么根据输入内容生成设定的图片(如图) 5
1个回答
2015-05-28
展开全部
'使用“开发工具”-“visual basic”建立一个模块,将下面的代码粘贴上。
'不好意思,怕你没有编程经验,多啰嗦了几句。
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
'要插入的图片
Dim strFilePath As String '图片存放的文件夹
Dim strJpgName As String '图片名称
Dim strFullJpgName As String'全路径文件名
strFilPath = "C:\Documents and Settings\Administrator\桌面\图片\" '可根据实际情况修改,引号必须
strJpgName= Cells(1, 1).Value & ".jpg" '图片名称由A1单元格内获取 '可根据实际情况修改,引号必须。Cells(1,1),其中前面的1表示行,后面的表示列,对应表格就是A列第1行。
strFullJpgName=strFilPath & strJpgName
'在B1单元格插入图片,具体是哪个单元格可修改
Sheet1.Range("B1").Select 'Range("B1")表示B列第1行
Sheet1.Pictures.Insert (FilPath)
'不好意思,怕你没有编程经验,多啰嗦了几句。
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
'要插入的图片
Dim strFilePath As String '图片存放的文件夹
Dim strJpgName As String '图片名称
Dim strFullJpgName As String'全路径文件名
strFilPath = "C:\Documents and Settings\Administrator\桌面\图片\" '可根据实际情况修改,引号必须
strJpgName= Cells(1, 1).Value & ".jpg" '图片名称由A1单元格内获取 '可根据实际情况修改,引号必须。Cells(1,1),其中前面的1表示行,后面的表示列,对应表格就是A列第1行。
strFullJpgName=strFilPath & strJpgName
'在B1单元格插入图片,具体是哪个单元格可修改
Sheet1.Range("B1").Select 'Range("B1")表示B列第1行
Sheet1.Pictures.Insert (FilPath)
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询