|
▼Maro さん:
>ただ、セル範囲を画像化したいので悩んでおります。
はて?
こちらでは、、
//www.vbalab.net/vbaqa/c-board.cgi?cmd=ntr;tree=54343;id=excel
で Yukiさんが紹介されている GetBitMap()関数を使って、
BMP形式で範囲を保存する方法
> Sub TEST() ' 此処を実行
> Dim strFileName As String
> strFileName = "D:\hogehogeBitMap.bmp"
>
> ActiveSheet.Range("範囲").CopyPicture xlScreen, xlBitmap
> SavePicture GetBitMap(), strFileName
> End Sub
の中で、
範囲のコピーの仕方を
> ActiveSheet.Range("範囲").CopyPicture xlScreen, xlBitmap
↓
ActiveSheet.Range("範囲").Copy
とするだけでBMP保存はできましたよ。
もちろん、手動でセル範囲を選択しておいて
Selection.Copy
SavePicture GetBitMap(), strFileName
でも。
|
|