如何在Excel图片上使用VB代码写公式

以下是使用VB代码在Excel图片上写公式的示例：\n\nvb\nSub WriteFormulaOnImage()\n Dim ws As Worksheet\n Dim shp As Shape\n \n ' 设置要操作的工作表和图片\n Set ws = ThisWorkbook.Worksheets("Sheet1")\n Set shp = ws.Shapes("Picture1")\n \n ' 将图片设为选中状态，以便在图片上写入公式\n shp.Select\n \n ' 在图片所在单元格的公式栏中写入公式\n ActiveCell.Formula = "=SUM(A1:A10)"\n \n ' 取消选中状态\n Application.Goto Reference:=ws.Range("A1")\nEnd Sub\n\n\n在上面的示例中，我们首先将要操作的工作表和图片指定为变量 ws 和 shp。然后，通过 Select 方法将图片设为选中状态，以便在图片上写入公式。接下来，我们在 ActiveCell.Formula 属性中写入公式 =SUM(A1:A10)，这将在图片所在单元格的公式栏中显示该公式。最后，我们通过 Goto 方法取消选中状态，将焦点返回到工作表的指定单元格。