tagCANDY CGI VBレスキュー(花ちゃん) の Visual Basic 2010 用 掲示板(VB.NET 掲示板) [ツリー表示へ]   [Home]
一括表示(VB.NET VB2005)
タイトルエクセルへpdfの画像貼付け
記事No12309
投稿日: 2025/04/11(Fri) 21:20
投稿者たけし
お世話になります。

VB.NET 2010
Win10環境で
エクセル2016使用しています。

VB.NET よりエクセルを開いて
エクセルファイルにPDFファイルの画像を貼り付けようと思っています。
貼り付けることはできまして
Left, Top の座標も指定した場所へ表示できるのですが
Width と Height サイズについて調整することができない状況です。
(描いているサイズより大きく表示する)
設定方法について教えてください。



Private Sub TEST

      
  Dim strBmp As String            
  Dim ex As New Microsoft.Office.Interop.Excel.Application
  Dim wb As Microsoft.Office.Interop.Excel.Workbook
  Dim sh As Microsoft.Office.Interop.Excel.Worksheet
      
  Dim OleObjects As Object = Nothing
  Dim OleObject As Object = Nothing

  wb = ex.Workbooks.Open("C:test.xls")
  sh = wb.Sheets("Sheet1")

  strBmp = "C:\test.PDF"
                
  OleObjects = sh.OLEObjects
  OleObject = OleObjects.Add(FileName:=strBmp, Link:=False, IconIndex:=False, Left:=750, Top:=690, Width:=200, Height:=200)

                
End Sub

[ツリー表示へ]
タイトルRe: エクセルへpdfの画像貼付け
記事No12310
投稿日: 2025/04/12(Sat) 14:12
投稿者たけし

以下のようにすると変更できました。

OleObject = OleObjects.Add(FileName:=strBmp, Link:=False, IconIndex:=False, Left:=750, Top:=690)
OleObject.width = 200
OleObject.height = 200

[ツリー表示へ]