Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


75733 / 76732 ←次へ | 前へ→

【5431】Re:シートのJPEGファイル作成
お礼  ねこぽん  - 03/5/13(火) 14:19 -

引用なし
パスワード
   bykin さん こんにちわ

確かにこの記述で上手くいきました。
ありがとうございます。

質問ついでにもう一つお伺いします。
実は、印字内容は縦方向の印刷内容で、JPEGを印刷したときにA4の縦用紙で印字できるようにイメージを保存したいのです。

これを
>    Worksheets(JPG_Sheet).Range(JPG_Sele).CopyPicture xlPrinter
>    Worksheets(JPG_Sheet).Range(JPG_Sele).CopyPicture xlScreen, xlBitmap
に変更をすると印字方向は良いのですが、中身が真っ白です。
なんでやろ?

>Sub test2()
>  Dim JPG_Sheet As String
>  Dim JPG_Sele As String
>  
>  JPG_Sheet = "Sheet1"
>  JPG_Sele = "A1:C5"
>  
>  With Application
>    .ScreenUpdating = False
>    .DisplayAlerts = False
>    Worksheets(JPG_Sheet).Range(JPG_Sele).CopyPicture xlScreen, xlBitmap
>    With Worksheets.Add
>      Charts.Add.Location Where:=xlLocationAsObject, Name:=.Name
>      With .ChartObjects(1)
>        .Border.LineStyle = xlLineStyleNone
>        .Chart.Paste
>        .Height = Selection.Height + (.Chart.ChartArea.Top) * 2
>        .Width = Selection.Width + (.Chart.ChartArea.Left) * 2
>        .Chart.Export Filename:="C:\Test.jpg", FilterName:="JPG"
>      End With
>      .Delete
>    End With
>    .DisplayAlerts = True
>    .ScreenUpdating = True
>  End With
>End Sub
>

2 hits

【5364】シートのJPEGファイル作成 ねこぽん 03/5/8(木) 13:31 質問
【5371】Re:シートのJPEGファイル作成 bykin 03/5/8(木) 22:25 発言
【5392】Re:シートのJPEGファイル作成 ねこぽん 03/5/9(金) 16:58 お礼
【5393】Re:シートのJPEGファイル作成 こう 03/5/9(金) 18:49 回答
【5413】Re:シートのJPEGファイル作成 ねこぽん 03/5/12(月) 11:25 お礼
【5416】Re:シートのJPEGファイル作成 bykin 03/5/12(月) 13:00 回答
【5430】Re:シートのJPEGファイル作成 ねこぽん 03/5/13(火) 13:02 お礼
【5411】Re:シートのJPEGファイル作成 bykin 03/5/11(日) 18:43 回答
【5414】Re:シートのJPEGファイル作成 ねこぽん 03/5/12(月) 11:36 お礼
【5422】Re:シートのJPEGファイル作成 bykin 03/5/12(月) 22:38 回答
【5431】Re:シートのJPEGファイル作成 ねこぽん 03/5/13(火) 14:19 お礼
【5437】Re:シートのJPEGファイル作成 bykin 03/5/13(火) 22:07 回答
【5439】Re:シートのJPEGファイル作成 bykin 03/5/14(水) 0:05 発言
【5449】Re:シートのJPEGファイル作成 ねこぽん 03/5/14(水) 15:16 お礼

75733 / 76732 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free