Question

求解：如何用EXCEL VBA编程处理插入图片的序号？

我在用EXCEL宏编写程序的时候，发现EXCEL对于插入后的外来图片都有一个只能递增的序号，比如“图片3”，这个序号只能随着你插入图片的次数而递增，不能不变或者减少，比如你删去那个“图片3”，再插入新图时候，就是“图片4”，有没有高手介绍一下，怎么在程序里编程查询到最新的序号？能不能编程改变这个序号？
我说的是EXCEL VBA宏编程，不是通常办公操作。

Answer 1

Public Sub Test()
Ppath = Application.GetOpenFilename("EXCEL (*.JPG, *.JPG", Title:="打开图片文件")
Picture = Sheet1.Pictures.Insert(ppath).Name '插入图片
Pname=Sheet1.Shapes(Picture).Name '得到图片的名字
Sheet1.Shapes(Picture).Name="Xiaoma" '设置图片的名字
End

Answer 2

Dim p As Shape
numberb = 0

For Each p In ActiveSheet.Shapes
If p.Type = msoPicture Then
a = p.Name

For i = 1 To Len(a)
If IsNumeric(Mid(a, i, 1)) Then
b = b & Mid(a, i, 1)
End If
numbera = Val(b)

Next i

If numbera > numberb Then numberb = numbera

End If

b = ""

Next
MsgBox "当前序号是" & numberb

Answer 3

上面这个回答还真是牛，粘贴了这么多无用的，有恶意灌水的嫌疑。