Excel VBA質問箱 IV

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

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


48526 / 76732 ←次へ | 前へ→

【33141】Re:範囲指定したセルからJPEGファイルを作成
発言  としくん  - 06/1/3(火) 16:32 -

引用なし
パスワード
   ▼かみちゃん さん:
>こんにちは。かみちゃん です。
>
>>以前の記事を参考に[【5364】シートのJPEGファイル作成]VBAを組んだの
>>ですが、出力されるJPG画像が実際にセルを範囲指定してペイントに貼り付
>>けた内容と違うのです。
>
>過去ログ[#5364]を参考にしたということですが、現在どのようなコードにしていますか?
>差し支えなければ、コードを提示していただけるとコメントがつきやすいかもしれません。
かみちゃんさん早速のレス有難うございます。
エクセルへボタンを配置し、それがクリックされた際、処理するようにしてあります。

Sub ボタン1_Click()
  Dim strSavePath As String
  Dim JPG_Sheet  As String
  Dim JPG_Sele  As String

  ' 現在開いているファイル名から保存用のファイル名(JPEG)を指定
  strSavePath = ActiveWorkbook.FullName
  strSavePath = Mid(strSavePath, 1, Len(strSavePath) - 4)
  strSavePath = strSavePath & ".jpg"

  ' 画像化する範囲を指定
  JPG_Sheet = "Sheet1"
  JPG_Sele = "A1:Q19"

  With Application
    .ScreenUpdating = False
    .DisplayAlerts = False
    Worksheets(JPG_Sheet).Range(JPG_Sele).CopyPicture xlPrinter
    
    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:=strSavePath, FilterName:="JPG"
      End With
      .Delete
    End With

    .DisplayAlerts = True
    .ScreenUpdating = True
  End With

  MsgBox "画像を保存しました。", vbOKOnly + vbInformation, "画像保存"

End Sub
0 hits

【33132】範囲指定したセルからJPEGファイルを作成 としくん 06/1/3(火) 15:01 質問
【33133】Re:範囲指定したセルからJPEGファイルを作成 かみちゃん 06/1/3(火) 15:06 発言
【33141】Re:範囲指定したセルからJPEGファイルを作成 としくん 06/1/3(火) 16:32 発言
【33145】Re:範囲指定したセルからJPEGファイルを作成 としくん 06/1/3(火) 16:59 発言
【33146】Re:範囲指定したセルからJPEGファイルを作成 かみちゃん 06/1/3(火) 17:07 発言
【33147】Re:範囲指定したセルからJPEGファイルを作成 としくん 06/1/3(火) 17:44 お礼

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