0

VBscript (QTP から) を使用して、前後にテキストが続く画像を Excel ファイルに挿入する必要があります。

ActiveCell.Worksheet.Pictures.Insert を使用できません。このコマンドは Excel ファイル内に画像を保持しないためです (Excel 2007 以降)。

使用した方法: objExcel.ActiveSheet.Shapes.AddPicture ImagePath, False, True, 0, PrevHeight, ptWidth, ptHeight

写真が挿入されたセル名、または座標の代わりに特定のセルの上に写真を挿入する方法、または座標に対応するセルを取得する方法を見つける必要があります。

Shape の TopLeftCell および BottomRightCell プロパティが見つかりましたが、それらが VBSCript で実際の値を返すようにすることはできません。

ありがとうございました。

4

1 に答える 1

0

おそらく (QTP からの) 発言がこれを台無しにしていますが、Pictures Insert を使用してまさにあなたが望むことを行う vbScript を作成しました。私の結果は、B2 の左上隅と F16 の左下隅が並んだ素敵な太った写真でした。- 私の写真の上と下にテキスト付き。また、ファイルを閉じて再度開いたとき、画像はまだそこにありました。

Set objXL = CreateObject("Excel.Application")
objXL.visible = true

Set wkb = objXL.Workbooks.Open("P:\Script\vbScript\Help\InsertPicture.xlsx")
Set ws = wkb.Sheets("Sheet1")
Set p = ws.Pictures.Insert("C:\Blue.jpg")

Set objRng = ws.Range("B2:F15")
With p
   .Top = objRng.Top
   .Left = objRng.Left
   .Width = objRng.Width 
   .Height = objRng.Height
End With

ws.Range("B1").Value = "myTop"
ws.Range("B16").Value = "myBottom"
于 2012-05-17T21:45:55.930 に答える