使用VBA将特定path的graphics添加到Excel工作表

我对VBA很陌生,希望这不是一个太不好的问题。

我想通过使用一个macros将PNGgraphics添加​​到Excel工作表。 录制macros并使用它很容易。 但是我想要的是:当我执行macros时,它应该读取特定单元格的内容,并从定义的文件夹中导入包含该单元格内容(或其一部分)的graphics。

你明白吗? 我想单击它,并通过检查工作表中单元格的内容,将正确的graphics添加到我的工作表中。

编辑:我设法导入graphics,但它有错误的大小。 我怎样才能改变呢? 我的代码现在:

Sub GraphicfileInZelleEinfuegen_Reaktionszeit() Dim strPfad As String Dim strDatei As String Dim lngZeile As Long Dim lngSpalte As Long Dim wksTabelle As Worksheet Dim shpNeu As Object Dim Modulnummer As Integer lngSpalte = 3 ' = C lngZeile = 22 Set wksTabelle = ActiveWorkbook.Worksheets("max_force_auslesen_Modul1") strPfad = wksTabelle.Cells(18, 10).Text If Right(strPfad, 1) <> "\" Then strPfad = strPfad & "\" strDatei = wksTabelle.Cells(19, 10).Text Set shpNeu = wksTabelle.Pictures.Insert(strPfad & strDatei) shpNeu.Top = wksTabelle.Rows(lngZeile).Top 'Einzufügende Zeile shpNeu.Left = wksTabelle.Columns(lngSpalte).Left shpNeu.Height = wksTabelle.Rows(600).Height shpNeu.Width = 111 End Sub 

好吧,我知道了…:

 shpNeu.Width = 1000 

十分简单