如何直接引用“员工照片”文件夹中的照片并实现自动更新

cfxyfc · 发表于 2012-6-25 17:55

非常感谢！非常感谢！

幸福矮人 · 发表于 2012-6-27 15:03

今天真的很给力啊

清风竹- · 发表于 2012-7-2 21:22

本帖最后由清风竹- 于 2012-7-2 21:42 编辑

解压后测试。

1970187189 · 发表于 2015-5-3 21:18

清风竹- 发表于 2012-5-4 22:54
请楼主试试，说明在附件中。

非常巧妙的编程。但请问文件中，这段代码是何含义，我想把这项功能用到另一个档案中，不能实现，想知道问题出在哪了，谢谢。
Dim i As Integer
Dim FilPath As String
Dim rng As Range
Dim myShape As Shape
For Each myShape In Sheet1.Shapes
      If myShape.Type = 13 Then
         myShape.Delete
      End If

清风竹- · 发表于 2015-5-3 21:24

1970187189 发表于 2015-5-3 21:18
非常巧妙的编程。但请问文件中，这段代码是何含义，我想把这项功能用到另一个档案中，不能实现，想知道问 ...

我的代码也是在论坛上找到修改的。这段代码就是把所有照片图片删除。

llqing888 · 发表于 2015-5-5 22:37

非常感谢！

1970187189 · 发表于 2015-5-9 07:48

清风竹- 发表于 2015-5-3 21:24
我的代码也是在论坛上找到修改的。这段代码就是把所有照片图片删除。

谢谢啊，那只有自己摸索一下了。

hranta · 发表于 2016-1-5 13:20

不错的技术啊

ly8421 · 发表于 2019-10-17 11:54

skyzxh 发表于 2012-5-4 22:06
刚帮人做过一个类似的..........

请问一下，相片如何修改才能把设定的单元格完全填满

scxzgq · 发表于 2020-2-4 12:21

清风竹- 发表于 2012-5-5 22:58
这次照片的可居中，位置相对固定。

好强大呀，下载学习了

		自动登录	找回密码
密码			免费注册

[求助] 如何直接引用“员工照片”文件夹中的照片并实现自动更新