Excel VBA質問箱 IV

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

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


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

75739 / 76738

←次へ　｜　前へ→


	【5431】Re:シートのJPEGファイル作成

ねこぽん - 03/5/13(火) 14:19 -


	引用なし

	パスワード

ｂｙｋｉｎさん　こんにちわ

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

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

これを
>　　　　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
>

5 hits

▼

【5364】シートのJPEGファイル作成 ねこぽん 03/5/8(木) 13:31