在delphi 当中如何控制excel 当中图片的大小！！最后十分都给您了，这可是卖血利来的钱啊。

Question

我没办法。和位英雄。。当然不是艺谋的英雄了。您比他们可强多了。

Answer 1

Sub 宏1()
'
' 宏1 Macro
' manager 记录的宏 2003-1-3
''
    ActiveSheet.Pictures.Insert( _
        "C:\Program Files\Common Files\Microsoft Shared\Clipart\cagcat50\BD07153_.WMF") _
        .Select
    Selection.ShapeRange.ScaleWidth 1.31, msoFalse, msoScaleFromTopLeft
    Selection.ShapeRange.ScaleHeight 1.31, msoFalse, msoScaleFromTopLeft
End Sub
通过上面录制的VB的宏我们可知：在插入一个图形文件以后，选中这个文件，然后就可以使用
ScaleWidth
ScaleHeight这两个函数来设置图形的大小!

Answer 2

用DELPHI的语法实现上面vb的语句就可以了，代码(未经过测试)：AcitveSheet.Pictuses[1].Select;
Selection.ShapeRange.ScaleWidth(1.31,msoFalse,msoScaleFromtopLeft);
Selection.ShapeRange.ScaleHeight(1.31,msoFalse,msoScaleFromTopLeft);

Answer 3

excelworksheet1.Pictures(c1).select;
          excelworksheet1.Shaperange.ScaleHeight(1.31,msoFalse,msoScaleFromTopLeft);
          excelworksheet1.ShapeRange.ScaleWidth(1.31,msoFalse,msoScaleFromtopLeft);
 Drate(鸟窝里的虫)老哥，我真的比較笨，我用以上語句去代，但是不行。我的圖片是粘貼上去的。

Answer 4

難道就無人能解嗎。圖片導入excel當中用的是如下代碼
 begin
         JpegMap:=TJpegImage.Create;
         blobstream:=TBlobStream.Create(TBlobField(Query2.FieldByName('bjds12')),bmRead);
        try
         JpegMap.LoadFromStream(blobstream);
         dbImage1.Picture.BitMap.Assign(JpegMap);
         dbimage1.CopyToClipboard;
          excelworkSheet1.Range[excelworksheet1.cells.item[b3+9,2],excelworksheet1.Cells.item[b3+9,2]].Select;
          excelworksheet1.Paste;
            finally
         jpegmap.free;
         blobstream.free;
       end;
但不知如何能控制圖片的大小，請各位大師指點一二，在下感激不盡

Answer 5

自己到Excel中录制宏看啦，针眼大个问题老问什么阿。—————————————————————————————————
宠辱不惊，看庭前花开花落，去留无意；毁誉由人，望天上云卷云舒，聚散任风。
—————————————————————————————————

Answer 6

我參考宏寫的這兩句代碼為什麼就無法運行應該怎樣改請明示。。
excelworkSheet1.Shapes.Range[excelworksheet1.cells.item[b3+9,2]].ScaleWidth(0.46,msofalse,msoScaleFromBottomLeft);
excelworkSheet1.Shapes.Range[excelworksheet1.cells.item[b3+9,2]].ScaleHeight(0.46,msoFalse,msoScaleFromBottomLeft);