如何通过VBA代码手动顺序不重复抽取图片？

weiyingde · 发表于 2016-9-30 11:26

这个已经实现，有机会让你验证一下

weiyingde · 发表于 2016-10-1 13:04

tangqingfu 发表于 2016-2-16 12:27
可否分享？

我做了一个，不知是否中意？
http://club.excelhome.net/thread-1302625-1-1.html

leikaiyi123 · 发表于 2017-8-16 21:36

见http://club.excelhome.net/thread-1126548-2-1.html 第19楼

chuhaiou · 发表于 2017-11-13 15:07

本帖最后由 chuhaiou 于 2017-11-13 17:45 编辑

Public MyArray(48) As Integer
Sub m()
Randomize
s = 0
For i = 1 To 48
s = s + MyArray(i - 1)
Next
If s < 2450 Then
Do
n = Int((50 - 1 + 1) * Rnd + 1)
Loop While MyArray(n - 1) = 49
MyArray(n - 1) = 49
s = "D:\学生相片\"
s1 = ".jpg"
s = s & (n) & s1
ActiveWindow.Selection.SlideRange.Shapes.AddPicture(FileName:=s, LinkToFile:=msoFalse, SaveWithDocument:=msoTrue, Left:=-23, Top:=-11, Width:=768, Height:=564).Select

      With ActiveWindow.Selection.ShapeRange
         .Fill.Transparency = 0#
         .Height = 282#
         .Width = 384#

         .Left = 0#
         .Top = 0#

End With
Else
MsgBox ("都抽完了")
End If
End Sub

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

[求助] 如何通过VBA代码手动顺序不重复抽取图片？