エクセルのA列に適当な文字列を入力して、次のマクロを実行すると、B列に、A列の文字列を画像化したものが並びますよね。
Sub gazou_sakusei()
Dim bbb As Range
Dim aaa As Variant
ActiveWindow.DisplayGridlines = False
aaa = Cells(Rows.Count, 1).End(xlUp).Address
For Each bbb In Range(Cells(1, 1), aaa)
With bbb
.Columns.AutoFit
.Rows.AutoFit
.HorizontalAlignment = xlCenter
.VerticalAlignment = xlCenter
.CopyPicture Appearance:=xlScreen, Format:=xlPicture
.Next.Select
End With
Selection.PasteSpecial
Next bbb
End Sub
こうしてできた画像を画像ファイルとして保存することはできないでしょうか。
とりあえずペイントにコピペして名前をつけて保存すればできますが、大量に有ると手間が掛かる上に、なぜか画質も落ちます(エクセル上にあるものとペイントに貼り付けた状態のものを拡大して比べればその差は歴然です)。
もしもそのままの画質で保存できる方法があるならばお教えいただきたいと思います。
よろしくお願いします。
No.5ベストアンサー
- 回答日時:
下記の様にすると、emf形式で保存できます。
(途中略)
.CopyPicture Appearance:=xlScreen, Format:=xlPicture
SavePicture CreatePictureFromCB(), "c:\" & bbb.Address(RowAbsolute:=False, ColumnAbsolute:=False) & ".emf"
CreatePictureFromCB()はWin32APIを用いた関数(By Shiraさん)で、
http://web.archive.org/web/20040528030228/http:/ …
等にあります。
ずばりこの方法でできました。
保存パスの部分をいじると、「A列の文字列.emf」で、一度に大量に保存できて目的にぴったり合致します。
これと「iconverter」という、.emf←→.gif相互変換ソフトを使えば完璧です。
どうもありがとうございました。
No.4
- 回答日時:
次のようなアドインを利用するとメタファイル(*.wmf、*.emf)で保存でき、拡大しても
ザラつきません。
PICSAV
http://hp.vector.co.jp/authors/VA016119/excel/li …
外部のマクロを使用したくないのでしたら、クリップアートギャラリーを利用して、次の
少々煩雑な操作をすれば可能です。(Excel2000)
1.クリップアートギャラリーを起動して適当なアイテムを開いておきます。
2.文字の入力されたセルを選択してコピーし、クリップアートギャラリーに貼り付けます。
3.クリップアートギャラリーに貼り付けられた画像を選択してコピーし、デスクトップや
適当なフォルダに貼り付けます。
これで拡張子WMFのメタファイルが作成されますので、ExcelやWord、Powerpointなどから
呼び出すと、枠線のキレイな画像が挿入されます。
なお、いずれの方法で作成した画像も、ドロー系の画像表示をサポートしていないアプリ
ケーションで使用すると、縁がギザギザの画像になってしまいます。
<参考>
http://www.hm.h555.net/~irom/g_about/g_dic_05.htm
No.3
- 回答日時:
こんにちわ。
たしかにコピペじゃ駄目みたいですね。(フォントは計算により滑らかさを維持しますが、画像的には100%の時のまま拡大するので、そもそもそれだけのデータしか無いってことだと思いますが・・・)
違う方法を挙げると、表示したい画面をそのまま画像にしたらどうでしょうか?
具体的には納得できる大きさに拡大してから、プリントスクリーンを押して画面全体をコピーし、ペイント(画像ソフトならなんでもよい)に貼り付け、必要な部分を切り取る。
まあ、VBAで画像にした意味は無くなりますが、これしかないんじゃないでしょうか?
No.1
- 回答日時:
素人のアナログ的な回答で失礼します。
私も少し前に、エクセルで造った画像を文書に貼り付けて印刷したく、
いろいろやってみましたが、
画像ファイルにすると、一気に画質が落ちました。
PDFファイル化して挿入、そのままコピペで貼り付けるなど
やった結果、ワードへそのままコピペが一番高画質でした。
(最初は一太郎に持っていきたかったので。)
今回作った、画像を何に使われたいのか不明ですが、
文書にして印刷でしたら、ワードへ持っていくのがよいかと思います。
他によき方法があれば、逆に教えていただきたいです・・・。
普通のPCにはインストールされてないような文字で綴った文章をサイトに載せようと思ったんです。
No.5さんの方法でできました。
ありがとうございました。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Visual Basic(VBA) 最終列の右へSUM関数を作成するため下記コードを実行しましたが、最終列「10月28日」が上書きされて 3 2022/12/05 20:32
- Visual Basic(VBA) まとめシートから集計シートへA列のコードが一致したら1行コピーするマクロをネット上で見つけました。こ 1 2022/08/30 14:11
- Excel(エクセル) エクセル VBA For Next 繰り返しの書き方を教えてください 6 2022/09/01 14:11
- Visual Basic(VBA) countifsについての質問 3 2023/03/08 13:45
- Excel(エクセル) エクセルで同じ数字同士を自動で線で結ぶVBAを教えてください 6 2022/04/26 23:13
- Visual Basic(VBA) Excel VBA キーワードから列を取得して、さらに空欄行を非表示にする 3 2022/10/21 22:49
- Visual Basic(VBA) エクセルのマクロについて教えてください。 1 2022/10/13 08:41
- Excel(エクセル) EXCELのグラフを画像(JPG形式)で保存、通常実行がうまく行かない。ステップインはうまく行く 3 2022/08/30 12:06
- Visual Basic(VBA) 別シートから年齢別の件数をカウントしたいの続き 5 2023/01/24 00:16
- Visual Basic(VBA) 【VBA】写真の貼り付けコードがうまく機能しません。 5 2022/09/01 18:43
このQ&Aを見た人はこんなQ&Aも見ています
関連するカテゴリからQ&Aを探す
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
メールでもらった画像をコピー...
-
ペイントの画像をワードに貼り...
-
adobe reader8で画像コピー・貼...
-
エクセルに貼り付けた、俳優の...
-
画像を傾ける方法
-
パワーポイントからエクセルへ...
-
画像の「ふち」をぼかす方法
-
エクセルの表を画質を落とさず...
-
プリントスクリーンの画像をい...
-
パワーポイントの図をJPEGかGIF...
-
win7 ペイントの吹き出し...
-
右クリック禁止の解除
-
プリントスクリーンの機能が言...
-
スキャンした画面の操作
-
エクセルの表をビットマップに...
-
Print Screen→貼り付け
-
プリントスクリーンを使っての...
-
OpenOffice.Drawで消しゴム作業
-
Word 複数行にまたがるカッコ
-
パワーポイントにネット上の表...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
メールでもらった画像をコピー...
-
ペイントの画像をワードに貼り...
-
adobe reader8で画像コピー・貼...
-
パワーポイントからエクセルへ...
-
画像の「ふち」をぼかす方法
-
エクセルの表を画質を落とさず...
-
画面印刷(プリントスクリーン...
-
エクセルの表をビットマップに...
-
エクセルのドロップダウンリス...
-
パワーポイントの図をJPEGかGIF...
-
スクリーンショットの写真が小...
-
プリントスクリーンの画像をい...
-
パワーポイントにネット上の表...
-
画像をドラッグして簡単に、メ...
-
表を作成して画像として保存す...
-
画像を傾ける方法
-
PC画面の一部を切り取ってコ...
-
エクセルで作成した画像を保存...
-
一太郎などからJPG画像を取...
-
WORDでの作成文書を画像データ...
おすすめ情報