Excel VBA msoScaleFromTopLeftが機能しません

Question

Windows 10でExcel 2016を使用していて、セルB17に画像を挿入し、画像の左上隅をセルの左上隅に維持しながらサイズを変更したい場合B17 。一部の画像は左下隅にリサイズされ、他の一部は右上隅にリサイズされます。 msoScaleFromTopLeftを使ってみましたが、同じ写真を左下または右上に縮小して表示しています。

は、ここに私のVBAマクロコードです：私は

Range("B17").Select 

ActiveSheet.Pictures.Insert(PhotoLocation).Select 'Insert photograph from file. 

Selection.ShapeRange.ScaleWidth 0.2, msoFalse, msoScaleFromTopLeft 

何をしないのですか？ 誰かが私にこれを手伝ってもらえますか、あるいは私がしたいことをするための代替方法を提案できますか？

Answer 1

あなたは別の何かを試すことができますSetあなたが挿入する画像へのオブジェクト（SelectとSelectionを使用せずに）。

その後、With myPic、および以下のネストされたプロパティを使用してプロパティを変更できます。

コード

Sub SetPics() 

Dim myPic As Picture 
Dim PhotoLocation As String 
Dim Rng As Range 

Set Rng = Range("B17") 

Set myPic = ActiveSheet.Pictures.Insert(PhotoLocation) 
With myPic 
    .ShapeRange.ScaleWidth 0.2, msoFalse, msoScaleFromTopLeft 
    .Top = Rows(Rng.Row).Top 
    .Left = Columns(Rng.Column).Left 
End With 

End Sub