列宽
宽度   像素 比值
11.88    100    0.1188
18.13    150    0.120866667
24.38    200    0.1219
30.63    250    0.12252
行高

75    100    0.75
112.5    150    0.75
150    200    0.75
187.5    250    0.75
从上面看到，行高的比值是固定的，怎么列宽的比值不是固定的
我插如果图片后，想保证，宽度或者高度不超过表格，但又想最大化的现实，怎么实现

oExcel=Createobject("Excel.application")
oExcel.Visible=.T.
oExcel.Workbooks.Add
oExcel.Worksheets("sheet1").Activate

oExcel.Columns("A:A").Select
oExcel.Selection.ColumnWidth = 22
oExcel.Rows("1:1").Select
oExcel.Selection.RowHeight = 100
   
oExcel.Range("A1").Select

oExcel.ActiveSheet.Pictures.Insert("F:\工程管理\frm_img\product\a1000000001.jpg").Select

oExcel.Selection.ShapeRange.Left  = 1
oExcel.Selection.ShapeRange.Top = 1

oExcel.Selection.ShapeRange.Height = 98

[此贴子已经被作者于2023-2-26 20:29编辑过]

我刚才测试了，可以设置图片的高度，宽度
我的意思是，假设 原始图片是 800 * 600的，4:3的比例，是可以在表格中设置，对应的列宽，行高，但如果图片不是4:3，而是9:6等等得，就无法简单设置了