希望VFP精准控制EXCEL做表格并贴图，希望能将图片嵌入指定单元格。
如cell(1,1)为图片名称
  cell（1，2）为嵌入的图片
学习有关知识，只能实现浮于文字上方的图片插入，请问如何实现图片嵌入式插入。
谢谢！
objExcel=createobject("excel.application")
objExcel.visible=.t.
objExcel.workbooks.add
objExcel.worksheets(1).activate
objExcel.worksheets(1).cells(1,1).value="4D50F73E4918DB4AE7F20CCD11FCFD98(03).JPG"
objExcel.Sheets(1).Cells(1,2).Select
objExcel.ActiveSheet.Pictures.Insert("D:\4D50F73E4918DB4AE7F20CCD11FCFD98(03).JPG").Select

感谢群里高手分享，结合搜索，下面代码基本满足要求。
mpicture="D:\20230731CN_ZP\截取\黑2_000101_000180\4D50F73E4918DB4AE7F20CCD11FCFD98(03).JPG"
myexcel=newobject("EXCEL.application")
WITH myexcel
    .visible=.t.
    .workbooks.add
    .rows(1).RowHeight = 29
    .cells(1,1).ColumnWidth = 52
    .cells(1,1).value="4D50F73E4918DB4AE7F20CCD11FCFD98(03).JPG"
    .rows(2).RowHeight =108
    .Range("A2").select
    cellW = .ActiveCell.Width
    cellH = .ActiveCell.Height
    WITH .ActiveSheet.Pictures.Insert(mpicture)
        .Placement = 1
        WITH .ShapeRange
            .LockAspectRatio = 0
            .Width=cellw
            .Height=cellh
        ENDWITH
    ENDWITH
ENDWITH

谢谢分享！

但是测试后，发现图片还是粘贴到excel上，不是嵌入

office宏录制里可以看到嵌入图片操作发生的动作，但不知到VFP如何实现调用，其中图片ID好像是office内部管理的。
Sub Macro1()
    .Select
    Range("A2").Formula = "=DISPIMG(" & """" & "ID_A3747A119B6243A9A89E89FF2BC3C133" & """" & ",1)"
    Selection.ShapeRange.Delete
    Range("A2").Select
End Sub
下面是插入图片（浮于文字上）
Sub Macro2()
    Range("A2").Select
    ActiveSheet.Shapes.AddPicture Filename:="D:\4D50F73E4918DB4AE7F20CCD11FCFD98(06).JPG", LinkToFile:=msoFalse, SaveWithDocument:=msoTrue, Left:=-1, Top:=-1, Width:=-1, Height:=-1
    .Select
End Sub

另外查了placement参数，只找到相关类似VB里的资料，好像是设置浮动格式的具体类型

placement参数的选项取决于使用的控件类型。以下是常见控件类型的placement参数选项：

CommandButton：

1. fmButtonFace（默认）：按钮将位于表单上。

2. fmButtonTop：按钮将浮动在表单上方。

3. fmButtonLeft：按钮将浮动在表单左侧。

“嵌入”是什么意思？
图片边界对齐单元格、大小随单元格变动而变就可以了吧。单元格既然用来放图片，就不会在图片底下存放文字，不存在“浮于文字上方”的做法。

excel2007好像没有DISPIMG()函数

目前VFP可以调用比excel2007更高版本的excel吗？

32位的应用应该可以