用vb代码 在Excel表格的图片上的写公式=c1

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

Sub AddFormulaToPicture()
    Dim ws As Worksheet
    Dim shp As Shape
    
    ' 获取活动工作表
    Set ws = ActiveSheet
    
    ' 获取第一个图片对象
    Set shp = ws.Shapes(1)
    
    ' 在图片上添加文本框
    shp.TextFrame.Characters.Text = "=C1"
End Sub

请确保在运行此代码之前，已经将图片插入到Excel工作表中，并且要写入公式的单元格是C1。运行此代码将在图片上添加一个文本框，并在文本框中写入公式"=C1"。