指定された値は境界を越えていますとは

Question

指定された値は境界を越えていますとは

Anonymous

結合したセルをダブルクリックし画像を入れ込むように設定しましたが、以下の赤字部分に問題があるようです。どう変えれば良いのでしょうか。

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Excel.Range, Cancel As Boolean)

Dim myF As Variant

Cancel = True

If Not Target.Columns.Count = 4 And Target.Rows.Count = 6 Then Exit Sub

myF = Application.GetOpenFilename _

      ("jpeg jpg bmp tif png gif,\*.jpeg;\*.jpg;\*.bmp;\*.tif;\*.png;\*.gif", , "画像の選択", , False)

If myF <> False Then

   With ActiveSheet.Shapes.AddPicture(Filename:=myF, LinkToFile:=msoFalse, \_ 

   SaveWithDocument:=msoTrue, Left:=Target.Left, Top:=Target.Top, \_ 

   Width:=-1, Height:=-1) 

       '===============タテヨコの縮尺を保持して拡大または縮小 

       .LockAspectRatio = True '縦横比率の維持（念のため） 

       .Width = Target.Width 

       If .Height &gt; Target.Height Then .Height = Target.Height 

       '===============中央へ調整 

       .Top = Target.Top + Target.Height / 2 - .Height / 2 

       .Left = Target.Left + Target.Width / 2 - .Width / 2 

  End With

End If

End Sub

ロックされた質問。この質問は、Microsoft サポートコミュニティから移行されました。役に立つかどうかに投票することはできますが、コメントの追加、質問への返信やフォローはできません。

0 件のコメント

1 件の回答

Answer 1

Anonymous

セルの広さより写真（ロゴマーク等）が大きいからではないでしょうか？

https://tonari-it.com/excel-vba-shapes-addpicture/

セルのサイズを広くするか写真を狭くしてみてはいかがでしょうか。

0 件のコメント