Excel-适合合并单元格大小的图像

Question

有什么方法可以使图像适合单元格。我在excel中有模板，字段“ FpPicture”是

试图将图像放在黄色框中，

oSheet.Range("fppICTURE").Select()
Dim new_size_image As New Bitmap(Image.FromFile(paths_full),
                     oSheet.Range("fppICTURE").MergeArea.Width,
                     oSheet.Range("fppICTURE").MergeArea.Height)
new_size_image.Save("123.bmp")
oSheet.Pictures.Insert("123.bmp")

由于某些原因，mergearea.width似乎不占用整个长度。

在这里

Dim pic As Object
oSheet.Range("FPPICTURE").Select()
pic = oExcel.ActiveSheet.Pictures.Insert(paths_sig)
With pic
    .Top = oExcel.ActiveCell.Top + 5
    .Left = oExcel.ActiveCell.Left + 5
    .Width = oSheet.Range("fppICTURE").MergeArea.Width
    .Height = oSheet.Range("fppICTURE").MergeArea.Height
End With

Answer 1

答案很简单。 1点= 1.33像素

只需更改为代码

oSheet.Range("fppICTURE").Select()
Dim new_size_image As New Bitmap(Image.FromFile(paths_full),
                     oSheet.Range("fppICTURE").MergeArea.Width * 1.33,
                     oSheet.Range("fppICTURE").MergeArea.Height * 1.33)
new_size_image.Save("123.bmp")
oSheet.Pictures.Insert("123.bmp")