|
▼ume さん:
こんにちは。
> Set ObjExcel = New Excel.Application
>
> ObjExcel.Cells(intRow, intCol).Select
> ObjExcel.ActiveSheet.Pictures.Insert ("FilePass")
>
> 上のようなプログラムでファイルから取得した画像をセルに
> 表示させているのですが、画像のサイズが大きすぎて枠から
> はみ出てしまいます。きちんと枠に表示したいのですが
> どのような方法があるのでしょうか。お教えください。
このきちんとした枠内って、セルの大きさに合わせてという意味ですか?
仮に対象セルがD8だとすると、
'================================
Sub Macro1()
Dim shp As Shape
With Range("D8")
Set shp = ActiveSheet.Shapes.AddPicture("D:\My Documents\My Pictures\j0179837(p).gif", False, True, .Left, .Top, .Width, .Height)
End With
End Sub
こういう意味ですか?(但し、Excelオブジェクトから指定して下さい)
|
|