Software

選択セル範囲を画像で保存SPアドイン

Information

  • 2013/05/17 バージョンアップ メモリーリーク対応処理追加
  • 2013/01/04 公開 『選択範囲を画像で保存.xla』のマクロ呼び出し機能を拡張したシェア版

ソフト概要

選択しているセル範囲を画像として保存するアドインです。

特徴】

●画像の保存形式は5種類に対応
 画像の保存形式は「PNG」「JPG」「GIF」「TIF」「BMP」に対応しています。

●ファイル名を自動でつけて保存が可能
 「保存の設定」を変更する事で、「ファイル名を自動でつけて保存」ができます。
 予めフォルダを指定しておけば、「保存」コマンドをクリックする度に、該当フォルダに画像ファイルが次々と保存されていきます。

●オートシェイプや図に対応
 セル範囲だけでなく、オートシェイプや図の保存にも対応しています。

●64bitに対応
 64bit版のExcelにも対応しています。

ご自身のマクロからこの機能の利用が可能
 ご自身のマクロ上で、この機能を呼び出し使用できます。[詳細]

ダウンロードと通常機能は無料でご利用いただけます。
Ver.1.3 ダウンロード 250KB

ライセンスキー(1,800円)購入の流れ

アドインとは

Excelアドインとは、Excelに独自のコマンドや機能を追加するプログラムの事です。[詳細]
アドインを使用するにはインストールと組み込みが必要となりますが、このアドインにはインストール・組み込み支援ソフトが同梱しています。


留意点

・このアドインはクリップボードを使用するため、クリップボードの内容が置き換わります。
・最大対応処理ピクセルは2400×3200です。
・PNGやGIFなどでの透過画像には対応していません。


使用例画像

アドインを組み込むと、セルの右クリックメニューに「選択範囲を画像で保存」メニューが表示されます。それを選択すると「保存」「設定」のコマンドが現れます。


セル範囲を選択して「保存」コマンドを実行すると、デフォルトでは「名前をつけて保存」のダイアログが表示されます。


保存場所を選んだのち保存。該当の場所に画像ファイルが作成されます。


作成されたファイル開くと、画像として保存されていることが確認できます


図も保存できます。図を選択した後、「アドイン」タブの「選択範囲・図形を画像で保存」メニューから「保存」コマンドを実行します。


「設定」コマンドを実行すると「ファイルの保存設定」フォームが現れます。


フォームでは、保存の方法(「名前をつけて保存」か「自動でファイル名をつけて保存」)や、「自動でファイル名をつけて保存」の場合の、保存場所や保存形式を設定できます。


ダウンロードと通常機能は無料でご利用いただけます。
Ver.1.3 ダウンロード 250KB

ライセンスキー(1,800円)購入の流れ


ご自身のマクロからこの機能を呼び出すライセンスキーを登録し制限が解除された場合のみ

このアドインをExcelに組み込むと、ご自身のマクロからこの機能を呼び出し使用できます。
【留意点】
 ・「選択セル範囲を画像で保存SP.xla」を使用できる状態でなければ、マクロから使用できません。
 ・アドインの「設定」が「名前を付けて保存」だと、マクロで指定のパス・ファイル名は無効になります。
 ・指定のファイル名と同名ファイルが、指定先に既に存在する場合は保存されません(スキップ)。
 ・Application.ScreenUpdatingプロパティの設定が「False」だと、画像が正常に保存されません。
 ・パスやファイル名で画像形式を指定しない場合、「設定」で選択されている形式で保存されます。

マクロから使用のサンプルコード

コード実行前に、アドインの「設定」で「自動でファイル名を付け保存」を選択しておいて下さい。

アドインの「設定」で指定したフォルダに、Image+連番(1~6)のファイルを作成。
ファイル名に形式を指定しない場合は、「設定」で選択されている形式で保存されます。
処理ごとの待機時間は1000ミリ秒(1秒)に設定しています。

Sub Sample_1()
    Dim i As Long
    With ActiveSheet
        For i = 1 To 6
            .Range(.Cells((i - 1) * 20 + 1, 1), .Cells(i * 20, 20)).Select
            Application.Run "Save_Selection_Without_Picture", "Image" & i , 1000
            If i Mod 30 = 0 Then DoEvents
        Next
    End With
End Sub

「設定」で指定したフォルダに、Image+連番(1~6)のファイルを画像形式を指定して作成。

Sub Sample_2()
    Dim i As Long
    With ActiveSheet
        For i = 1 To 6
            .Range(.Cells((i - 1) * 20 + 1, 1), .Cells(i * 20, 20)).Select
            Application.Run "Save_Selection_Without_Picture", "Image" & i & ".jpg"
            If i Mod 30 = 0 Then DoEvents
        Next
    End With
End Sub

保存フォルダをパスで指定し、Image+連番(1~6)のファイルを作成。
サンプルコードでは、デスクトップにある「test」フォルダにファイルが保存されます。
画像形式は、アドインの「設定」で選択されているものです。
処理ごとの待機時間は100ミリ秒(0.1秒)に設定してあります。

Sub Sample_3()
    Dim i As Long
    With ActiveSheet
        For i = 1 To 6
            .Range(.Cells((i - 1) * 20 + 1, 1), .Cells(i * 20, 20)).Select
            Application.Run "Save_Selection_Without_Picture", _
                            "C:\Users\ユーザー名\Desktop\test\Image" & i , 100
            If i Mod 30 = 0 Then DoEvents
        Next
    End With
End Sub

保存フォルダをパスで指定し、Image+連番(1~6)のファイルを画像形式を指定して作成。
サンプルコードでは、デスクトップにある「test」フォルダにファイルが保存されます。

Sub Sample_4()
    Dim i As Long
    With ActiveSheet
        For i = 1 To 6
            .Range(.Cells((i - 1) * 20 + 1, 1), .Cells(i * 20, 20)).Select
            Application.Run "Save_Selection_Without_Picture", _
                            "C:\Users\ユーザー名\Desktop\test\Image" & i & ".jpg"
            If i Mod 30 = 0 Then DoEvents
        Next
    End With
End Sub

動作確認

OS:WindowsXP/Vista/7/8/10
Excel:2003/2007/2010(32/64bit)
 
上記での動作は確認済みです。
Macには対応していません。

ライセンスキー購入の流れ

ソフトをご使用されて、機能を解除したい場合はライセンスキーをご購入下さい。このソフトのライセンスキーは1,800円になります。予めソフトの動作確認を十分に行って下さい。

銀行振込のみの対応になります。
【手順】
1.メールフォームに、氏名、メールアドレス、購入希望ソフト名を入力し送信して下さい
2.こちらから、口座番号等の情報をメールで送信致します
3.ご入金の確認ができた後、ライセンスキーの情報をメールで送信致します

※即日の対応ができない場合もあります。ご承知置き下さい。

ページトップへ戻る

一般業務用(フリー)

学校用(フリー)

ユーティリティ(フリー)

シェアソフト

Copyright(C) 2009- 坂江保 All Rights Reserved.