WindowsフォームアプリケーションからExcel関数LoadPicture（）を使用する方法

Question

私の会社がすべてのレポートにアクセスするために使用するWindowsフォームアプリケーションがあります。ほとんどのレポートは、実行時に最初から作成されたExcelシート、またはExcelテンプレートからユーザーに与えられます。これまでのところ、すべてのことがうまくいきました。私が今実行している問題は、ドライブに保存されたイメージをExcelテンプレートにImageBoxをロードする必要があることです。私は画像のファイルパスを持っています（これはこの実行ごとに変わります）。私が見つけた唯一の方法は、このようなものです... ImageBoxの画像のプロパティを設定することができるようにする

問題は、私は内LOADPICTURE（）関数を呼び出すからする方法を見つけ出すことができないです

Dim FileStr As String = "C:\Folder\ImageFile.jpg" 

xlWorksheet.ImageName.Picture = LoadPicture(FileStr) 

ウィンドウズフォーム。実行時にLoadPicture（）を呼び出して削除するExcelモジュールを作成することができますが、もっと良い方法が必要だったと思いましたか？そこに誰かが欲しいと願っています。ありがとう。 編集： - ここには、今、私はコードを見てよ、あなたはそうでは.AddPicture方法

が必要であろうと、私はExcelシートに

Imports ExcelVB = Microsoft.Office.Interop.Excel 
Imports ad = GartnerInterface.AdminClass.AdminTools 
Imports xl = GartnerInterface.AdminClass.XlHelp 

Public Class TestClass 

    Public Shared Sub NewSub() 

     Dim xlApp As ExcelVB.Application 
     Dim xlWorkbook As ExcelVB.Workbook 
     Dim xlWorksheet As ExcelVB.Worksheet 

     Dim TestSht As String 

     TestSht = "H:\Josh\ExcelTest.xlsm" 

     xlApp = CreateObject("Excel.Application") 
     xlWorkbook = xlApp.Workbooks.Add(TestSht) 
     xlApp.DisplayAlerts = False 
     xlApp.Visible = True 
     xlWorksheet = xlApp.Sheets("Sheet1") 

     Dim FileStr As String = "H:\12117\12117_Original.png" 
     'xlWorksheet.RFQImg.Picture = LoadPicture(FileStr) 

    End Sub 

End Class 

Answer 1

を開くために使用していたコードの例です。このコードの下、次のようなものが必要になります。

Dim FileStr As String = "H:\12117\12117_Original.png" 
xlWorksheet.Shapes.AddPicture(FileStr, Microsoft.Office.Core.MsoTriState.msoFalse, Microsoft.Office.Core.MsoTriState.msoCTrue, 50, 50, 300, 45) 

から撮影

、 https://msdn.microsoft.com/en-us/library/office/ff198302.aspx

OR、あなたはちょうどので、私はこの問題を、画像がすでに

Dim FileStr As String = "H:\12117\12117_Original.png" 
Dim imgName as String = "test" 
For Each myShape In xlWorksheet.Shapes 
    If myShape.Name = imgName then   
     cTop = myShape.ShapeRange.Top 'we must save the values here 
     cLeft = myShape.ShapeRange.Left 
     cHeight = myShape.ShapeRange.Height 
     cWidth = myShape.ShapeRange.Width 
     myShape.delete 
     Exit For 
    end if    
next 
xlWorksheet.Shapes.AddPicture(FileStr, Microsoft.Office.Core.MsoTriState.msoFalse, Microsoft.Office.Core.MsoTriState.msoCTrue, cLeft, cTop, cWidth, cHeight) 

An example, with user interaction, I borrowed from