| |
▼ume さん：
こんにちは。
> Set ObjExcel = New Excel.Application
>
> ObjExcel.Cells(intRow, intCol).Select
> ObjExcel.ActiveSheet.Pictures.Insert ("FilePass")
>
> 上のようなプログラムでファイルから取得した画像をセルに
> 表示させているのですが、画像のサイズが大きすぎて枠から
> はみ出てしまいます。きちんと枠に表示したいのですが
> どのような方法があるのでしょうか。お教えください。
このきちんとした枠内って、セルの大きさに合わせてという意味ですか？
仮に対象セルがＤ８だとすると、
'================================
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オブジェクトから指定して下さい）
|
|
ichinose
- 03/8/5(火) 12:04 -
