具有寬高比的VB.NET Shapes.AddPicture

Question

我有一個用vB.NET編寫的程序。 我在用數據庫中的某些數據“導出” Excel文件時遇到問題。 其中一個數據具有指向文件的鏈接。 我想將此圖像（在鏈接中）放到Excel中，直到我擁有為止，一切都很好。 例如較寬的圖像或較高的圖像（橫向或縱向）。 我正在使用此代碼將圖像發布到excel文件中：

objWorkSheet.Shapes.AddPicture(linktofile, Microsoft.Office.Core.MsoTriState.msoFalse, Microsoft.Office.Core.MsoTriState.msoTrue, Left:=10, Top:=419, Height:=285, Width:=510)

所以問題是如何將AspectRatio := True放入代碼中...

Answer 1

如果使用原始圖像的高度和寬度均使用“ -1”導入圖像，則可以選擇它，並設置高度或寬度並保持寬高比。

例如：

    With ActiveSheet.Shapes.AddPicture(Filename:=Filename, linktofile:=msoFalse, savewithdocument:=msoCTrue, Left:=0, Top:=0, Width:=-1, Height:=-1).Select
    End With

    Set theShape = Selection.ShapeRange.Item(1)

    With theShape
        .LockAspectRatio = msoTrue 'can be set to msoFalse if you don't need to lock aspect ratio
        '.Width = 50
        .Height = 50
    End With

我希望這個對你有用！