至于图片会变动的问题，是你自己设置的问题，把图片的大小设置为合适的大小就不会出现你所说的问题，我上面的代码添加的图片没发现会变化的问题

好的谢谢 下面的要怎样写开来，

mpicture="D:\2008nl\9.JPG"
myexcel=newobject("EXCEL.application")
WITH myexcel
    .visible=.t.
    .workbooks.add
    .Range("C3").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

写成

myexcel=newobject("EXCEL.application")
myexcel.visible=.t.
myexcel.workbooks.add
myexcel.Range("C3").select
    cellW = myexcel.ActiveCell.Width
    cellH = myexcel.ActiveCell.Height
myexcel.ActiveSheet.Pictures.Insert(mpicture)

接下去就写不对了，要怎样才能写开来
        .Placement = 1
        WITH .ShapeRange
            .LockAspectRatio = 0
            .Width=cellw
            .Height=cellh
        ENDWITH
    ENDWITH
ENDWITH

举一反三，你是不学不看不思考

.Placement = 1  就这一句总写不对

Placement 是什么对象的属性?

mpicture="D:\2008nl\9.JPG"
myexcel=newobject("EXCEL.application")
WITH myexcel
    .visible=.t.
    .workbooks.add
    .Range("C3").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

WITH myexcel
    WITH .ActiveSheet.Pictures.Insert(mpicture)
        .Placement = 1
这样子：
myexcel.ActiveSheet.Pictures.Insert(mpicture).Placement = 1
可以吗?

mpicture="H:\1.JPG"  &&
myexcel=newobject("EXCEL.application")
myexcel.visible=.t.
myexcel.workbooks.add
myexcel.Range("C3").select
cellW = myexcel.ActiveCell.Width
cellH = myexcel.ActiveCell.Height
myexcel.ActiveSheet.Pictures.Insert(mpicture).Placement = 1  &&这句可以

*后面又不通了
myexcel.ActiveSheet.Range("C3").ShapeRange.SELECT
myexcel.Selection.ShapeRange.LockAspectRatio =0
myexcel.Selection.ShapeRange.Width=cellw
 myexcel.Selection.ShapeRange.Height=cellh
 

将
myexcel.ActiveSheet.Range("C3").ShapeRange.SELECT
改为
myexcel.ActiveSheet.Shapes("Picture 1").Select  
试一试，不知是否是这个意思？

在win7 vfp9下运行，顺利完成，没有出现错误？