Question

怎么判断Excel是否存在一个椭圆图形（VBA）

如题，不知道sheet页里有没有椭圆图形。如果有，也不知道椭圆图形的名字。

Answer 1

Sub Macro1()

For i = 1 To ActiveSheet.Shapes.Count
If InStr(1, ActiveSheet.Shapes(i).Name, "Oval") <> 0 Then
MsgBox "存在椭圆图形" & ActiveSheet.Shapes(i).Name

ActiveSheet.Shapes(i).Select
ActiveSheet.Shapes("Oval 2").Select
Selection.ShapeRange.Fill.Transparency = 0#
Selection.ShapeRange.Line.Weight = 3#
Selection.ShapeRange.Line.DashStyle = msoLineSolid
Selection.ShapeRange.Line.Style = msoLineSingle
Selection.ShapeRange.Line.Transparency = 0#
Selection.ShapeRange.Line.Visible = msoTrue
Selection.ShapeRange.Line.ForeColor.SchemeColor = 48
Selection.ShapeRange.Line.BackColor.RGB = RGB(255, 255, 255)
Selection.ShapeRange.Fill.Visible = msoTrue
Selection.ShapeRange.Fill.ForeColor.SchemeColor = 48
Selection.ShapeRange.Fill.BackColor.RGB = RGB(255, 255, 255)
Selection.ShapeRange.Fill.Patterned msoPatternSolidDiamond
Exit For
End If
Next
End Sub

Answer 2

EXCEL不是万能的,老兄,它又没眼睛,能看到图片上有什么?
如果你非要这样,就必须让EXCEL比对两张图片(另外一张是个标准的椭圆图片),看看它们相似度有多少,图片名字倒是不需要,这个是能做到的,但是我问一句,为什么呢?干什么用呢?