Excel VBA質問箱 IV

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

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


21115 / 76732 ←次へ | 前へ→

【61021】Re:シートにある画像を、画像の斜め上の表に書いてある番号名で保存するマクロ
発言  Jaka  - 09/4/3(金) 16:31 -

引用なし
パスワード
   これで、画像の右上のセルがわかります。

LT = ActiveSheet.Shapes("図 6").TopLeftCell.Address
BR = ActiveSheet.Shapes("図 6").BottomRightCell.Address
図形右上セル = Range(LT, BR).Rows(1).Cells(Range(LT, BR).Rows(1).Cells.Count).Address
MsgBox 図形右上セル


以下、過去ログを探せなかったので...。(内容は、当時のまま)
他は、API使うとか。

Sub 画像Jpeg保存()
  Dim Cht As Chart
  Dim Rgw As Single, Rgh As Single
  Dim MRng As Range
  With Sheets("Sheet2").Shapes("図 6")
    '+7は、左、上の余白が消せないので、合わせる為の右、下の余白分
    'セル範囲の場合は、余白が調整される?ドットとピクセルの違い?
    Rgh = .Height + 7
    Rgw = .Width + 7
    .CopyPicture Format:=xlBitmap
  End With
  With ActiveSheet.ChartObjects.Add(0, 0, Rgw, Rgh).Chart
    .Paste
    .ChartArea.Border.LineStyle = 0
    .Export CreateObject("WScript.Shell").SpecialFolders("Desktop") & "\画像ファイルの名前.jpg"
    .Parent.Delete
  End With
End Sub
1 hits

【61011】シートにある画像を、画像の斜め上の表に書いてある番号名で保存するマクロ ai 09/4/3(金) 0:04 質問
【61021】Re:シートにある画像を、画像の斜め上の表... Jaka 09/4/3(金) 16:31 発言
【61032】Re:シートにある画像を、画像の斜め上の表... ai 09/4/4(土) 19:20 発言
【61056】Re:シートにある画像を、画像の斜め上の表... Jaka 09/4/6(月) 17:06 発言
【61058】Re:シートにある画像を、画像の斜め上の表... ai 09/4/6(月) 18:41 お礼
【61077】ちょっと変えました。 Jaka 09/4/8(水) 13:33 発言
【61129】更に改良 Jaka 09/4/10(金) 14:58 発言
【61195】Re: ai 09/4/15(水) 20:06 お礼

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