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

weiyingde

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

weiyingde

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

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

leikaiyi123

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

chuhaiou

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