EXCELVBAでの画像貼り付け

Question

前提・実現したいこと

EXCELVBAで、ボタンを押すと指定セルへの画像貼り付け

発生している問題・エラーメッセージ

当該EXCELを作成したPCでは綺麗に貼り付けができるものの他PCでは多少指定セルの上に
画像が貼り付けられてしまいます。

該当のソースコード

Sub ボタン1_Click()
' ファイル選択ダイアログで画像ファイルを選択する
vntFileName = _
Application.GetOpenFilename( _
Title:="画像を選択", MultiSelect:=False _
)
' ファイルパスがあれば
If Len(vntFileName) > 0 Then
'MsgBox vntFileName
Set targetCell = Range("b79:d87")
targetCell.Select
' シェイプを作成し，画像を挿入
Set myShape = ActiveSheet.Shapes.AddPicture( _
Filename:=vntFileName, _
LinkToFile:=False, _
SaveWithDocument:=True, _
Left:=targetCell.Left, _
Top:=targetCell.Top, _
Width:=targetCell.Width, _
Height:=targetCell.Height _
)
End If
End Sub

試したこと

Verなどの確認はしましたが以上ありませんでした。

補足情報（FW/ツールのバージョンなど）

EXCEL2016・Windows10

Comments

[m.ts10806]

ソースコードはマークダウンのcode機能を使ってください。質問・解説内容とコードとの境目が不明瞭となりますし、code機能では正しくコードをコピペできるようになりインデントもつけられて読みやすくなり、再現確認も容易となりますので、的確な回答が得やすくなります。https://teratail.com/help#about-markdown

Answer 1

そこの設定はポイント単位なんで各PCの画面のDPI設定なんかで数値が変わります、
変なDPIが設定されてるだとそこで桁数切り捨てが出て誤差がでちゃってるんでしょうねぇ。
座標の型がsingle型かDouble型かとかって問題とかも、
なにせエクセルの座標系は面倒なんですよね。

一旦対象セルを選択し、Selectionからleftとtopを取得して設定してみてはどうでしょうか？
ちらちらするので一旦Application.ScreenUpdating = Falseで。

あとは…当然枠線は非表示ですよね？表示してると枠線ははみ出ます。
（shp.Line.Visible = msoFalse）

Answer 2

回答ではない回答になって申し訳ないですが、発生している現象は、Excelの仕様かと思います。
Excelは表計算ソフト故、手抜きしている機能が多いと聞きます。
諦めも視野に入れるべきかと思います。
すいません。