Excel vbaでの塗りつぶし画像の元のサイズに対するコメントサイズの変更

Question

セルのマウスオーバー時にポップアップとして画像を挿入できるVBA Excelマクロを作成しようとしています。

私はセルにコメントを挿入し、コメントの塗りつぶしを指定した画像に設定することでこれを実現しています。私はフィル背景として画像を使用するにはコメントを設定した後

スケーリング元のを維持するために絵を希望

、私は手動で、セルを右クリックして編集コメントをクリックして、コメントを右クリックすることができ、 [サイズ]タブに移動し、[元の画像サイズに合わせる]チェックボックスをオンにし、スケールの高さとサイズを100％に設定します。

マクロを記録するこれを複製するVBAは何も記録されません。エラーでtargetComment.Shape.ScaleHeight 1, msoTrue結果使用

：

であるものにアクセスする方法を誰もが知っている：ここで

Run-time error '-2147024891 (80070005)': 
The RelativeToOriginalSize argument applies only to a picture or an OLE object 

は、このエラーを生成VBAコードのスクリーンショットですVBA経由のダイアログボックス???

Answer 1

スケーリングを使用して画像を表示するコメントを使用することができます。トリックは、スケーリング係数を自分で計算し、それを画像に適用することです。私はimage file's dimensionsにアクセスするためにWindows Image Acquisition Automation Layerを使用しました。

以下の例では、TempディレクトリのJPGイメージにアクセスし、適切なスケーリングでセルのコメントに追加します。

Option Explicit 

Sub test() 
    '--- delete any existing comment just for testing 
    If Not Range("C5").Comment Is Nothing Then 
     Range("C5").Comment.Delete 
    End If 
    InsertCommentWithImage Range("C5"), "C:\Temp\laptop.jpg", 1# 
End Sub 

Sub InsertCommentWithImage(imgCell As Range, _ 
          imgPath As String, _ 
          imgScale As Double) 
    '--- first check if the image file exists in the 
    ' specified path 
    If Dir(imgPath) <> vbNullString Then 
     If imgCell.Comment Is Nothing Then 
      imgCell.AddComment 
     End If 

     '--- establish a Windows Image Acquisition Automation object 
     ' to get the image's dimensions 
     Dim imageObj As Object 
     Set imageObj = CreateObject("WIA.ImageFile") 
     imageObj.LoadFile (imgPath) 

     Dim width As Long 
     Dim height As Long 
     width = imageObj.width 
     height = imageObj.height 

     '--- simple scaling that keeps the image's 
     ' original aspect ratio 
     With imgCell.Comment 
      .Shape.Fill.UserPicture imgPath 
      .Shape.height = height * imgScale 
      .Shape.width = width * imgScale 
     End With 
    End If 
End Sub 

私が代わりにコメントのハイパーリンクを使用したい