Excel精英培训网

 找回密码
 注册
数据透视表40+个常用小技巧,让你一次学会!
查看: 3916|回复: 15

[已解决]难道插入照片的名字不能是文本和数字的组合?!

[复制链接]
发表于 2014-4-9 10:09 | 显示全部楼层 |阅读模式
本帖最后由 liwenhong 于 2014-4-9 19:44 编辑

        当照片的文件名是文本时,能插入,一旦文件名是文本和数字的组合时就不行,请高手指教!
       具体见附件: 照片文件的名字是文本和数字的组合.zip (77.56 KB, 下载次数: 5)
excel精英培训的微信平台,每天都会发送excel学习教程和资料。扫一扫明天就可以收到新教程
发表于 2014-4-9 10:25 | 显示全部楼层
回复

使用道具 举报

发表于 2014-4-9 10:25 | 显示全部楼层
看看文件名嘛,文本+数字组合的是gif格式的,亲。

评分

参与人数 1 +1 收起 理由
liwenhong + 1 很给力!

查看全部评分

回复

使用道具 举报

发表于 2014-4-9 10:26 | 显示全部楼层
你把这些GIF的格式转换成JPG吧。

评分

参与人数 1 +1 收起 理由
liwenhong + 1 很给力!

查看全部评分

回复

使用道具 举报

 楼主| 发表于 2014-4-9 10:48 | 显示全部楼层
hwc2ycy 发表于 2014-4-9 10:26
你把这些GIF的格式转换成JPG吧。

哈 我犯了一个低级错误啊,羞愧呀!还麻烦您看看第二个问题(按钮消失)。谢谢您了!
回复

使用道具 举报

发表于 2014-4-9 10:49 | 显示全部楼层
按钮消息是因为你用了.pitures(1).delete了。

评分

参与人数 1 +1 收起 理由
liwenhong + 1 很给力!

查看全部评分

回复

使用道具 举报

发表于 2014-4-9 10:56 | 显示全部楼层
  1. Sub zhaopian()
  2.     On Error Resume Next
  3.     Application.EnableEvents = False
  4.     Dim str$, pic As Picture
  5.     str = ThisWorkbook.Path & "\职工照片" & Range("B3") & Range("D2") & ".jpg"
  6.     If Len(Dir(str)) Then
  7.         With Sheet1
  8.             If .Pictures.Count > 1 Then
  9.                 .Pictures(2).Delete
  10.             End If
  11.             .Range("H3").Select
  12.             Set pic = .Pictures.Insert(ThisWorkbook.Path & "\职工照片" & Range("B3") & Range("D2") & ".jpg")
  13.             With pic
  14.                 .Height = Range("H3").MergeArea.Height
  15.                 .Width = Range("H3").MergeArea.Width
  16.                 .Left = Range("h3").MergeArea.Left
  17.                 .Top = Range("h3").MergeArea.Top
  18.             End With
  19.         End With
  20.     Else
  21.         MsgBox str & " 不存在"
  22.     End If
  23.     Application.EnableEvents = True
  24. End Sub
复制代码

评分

参与人数 1 +1 收起 理由
liwenhong + 1 很给力!

查看全部评分

回复

使用道具 举报

 楼主| 发表于 2014-4-9 11:03 | 显示全部楼层
hwc2ycy 发表于 2014-4-9 10:49
按钮消息是因为你用了.pitures(1).delete了。

        但是将 .Pictures(1).Delete注释掉,又出现了新问题:照片的大小与单元格不适应了,且以往的照片不能删除了。还望您指教!
回复

使用道具 举报

 楼主| 发表于 2014-4-9 12:52 | 显示全部楼层
hwc2ycy 发表于 2014-4-9 10:56

        这么快就得到您的回复,真是太谢谢您了!


        经过运行您的代码,我还有两个地方需要改动
       1、当没有该职工的照片时,直接结束,不要出现任何提示!
我是将:MsgBox str & " 不存在"   换为:   Exit Sub     来解决的。
       2、当再次点击“插入照片”按钮,而此时没有这个职工的照片时,一方面要转到结束(不要任何提示),另外还要删除前一名职工的照片。
      我想将以下代码加入到最前面,结果没有成功
    For Each Shp In ActiveSheet.Shapes
        If Shp.Type = msoPicture Then Shp.Delete '自动插入图片前,删除所有图片
    Next

      以上问题我的解决方法对吗,还请您多多指导!
      因为这个插入照片的功能要用到其他地方去,在那个环境中,需要以上的要求,请您见谅!
      再次谢谢您了!

回复

使用道具 举报

发表于 2014-4-9 13:37 | 显示全部楼层
liwenhong 发表于 2014-4-9 12:52
这么快就得到您的回复,真是太谢谢您了!

要不你再重新上传一个你改的附件吧。

评分

参与人数 1 +1 收起 理由
liwenhong + 1 很给力!

查看全部评分

回复

使用道具 举报

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

本版积分规则

小黑屋|手机版|Archiver|Excel精英培训 ( 豫ICP备11015029号 )

GMT+8, 2024-3-29 09:10 , Processed in 6.197102 second(s), 22 queries , Gzip On, Yac On.

Powered by Discuz! X3.4

Copyright © 2001-2020, Tencent Cloud.

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