用vb代码Excel图片上的写公式

以下是使用VB代码在Excel图片上写公式的示例：

Sub WriteFormulaOnImage()
    Dim ws As Worksheet
    Dim shp As Shape
    
    ' 设置要操作的工作表和图片
    Set ws = ThisWorkbook.Worksheets("Sheet1")
    Set shp = ws.Shapes("Picture1")
    
    ' 将图片设为选中状态，以便在图片上写入公式
    shp.Select
    
    ' 在图片所在单元格的公式栏中写入公式
    ActiveCell.Formula = "=SUM(A1:A10)"
    
    ' 取消选中状态
    Application.Goto Reference:=ws.Range("A1")
End Sub

在上面的示例中，我们首先将要操作的工作表和图片指定为变量 ws 和 shp。然后，通过 Select 方法将图片设为选中状态，以便在图片上写入公式。接下来，我们在 ActiveCell.Formula 属性中写入公式 =SUM(A1:A10)，这将在图片所在单元格的公式栏中显示该公式。最后，我们通过 Goto 方法取消选中状态，将焦点返回到工作表的指定单元格