No.1
- 回答日時:
やりたいのは分りますが
>VBAはほんの少しだけ触れた事のある初心者です。
では・・・
十分理解してからでないと難しいと思いますよ
まずは、この辺から
Sub Macro1()
Dim ws As Worksheet
Dim i
For Each ws In Worksheets
With ws
For i = 1 To .Shapes.Count
With .Shapes(i)
MsgBox "SheetName = " & ActiveSheet.Name & vbCrLf & _
"ShapeName = " & .Name & vbCrLf & _
"ShapeHeight = " & .Height & vbCrLf & _
"ShapeWidth = " & .Width
End With
Next i
End With
Next ws
End Sub
参考まで
この回答への補足
ご回答ありがとうございます。
この程度でしたら理解できます。
すみません、言い方が悪かったです。
画像の縦横のサイズではなく、画像自体のファイルサイズを取得して警告を出したいなと考えています。
メッセージボックスの出し方やループに関しては参考にさせていただきます。
No.2
- 回答日時:
シートに貼り付けた画像は、元画像のサイズや、解像度dpiの情報を保持している様ですが、
ローカルウィンドウを表示させてメンバーを眺めていても、それらしい物が見つかりません。
ご存じの方がいたら、自分も是非知りたいです。
ベタな方法ですが、解像度96dpi決め打ちで、下記により画像のサイズ(ピクセル数)が取得できるかも。
(クリップボードから貼り付けたり、解像度情報の無いファイルだと、96dpiと見なされる様です)
なお、VBAによる画像のリサイズについては、下記に回答した例があります。
http://okwave.jp/qa/q5647625.html
xl2000のコードです。他の環境で動かない場合はあしからず。
Type shapeSize
Width As Long
Height As Long
End Type
Sub test()
Dim shp As Shape
Dim shpSize As shapeSize
For Each shp In ActiveSheet.Shapes
If shp.Type = msoPicture Then
shpSize = test2(shp)
Debug.Print shpSize.Width, shpSize.Height
End If
Next shp
End Sub
Function test2(shp As Shape) As shapeSize
Dim originalSize As shapeSize
Application.ScreenUpdating = False
originalSize.Width = shp.Width
originalSize.Height = shp.Height
shp.ScaleWidth 1, msoTrue
shp.ScaleHeight 1, msoTrue
test2.Width = shp.Width * 96 / 72
test2.Height = shp.Height * 96 / 72
shp.Width = originalSize.Width
shp.Height = originalSize.Height
Application.ScreenUpdating = True
End Function
No.3ベストアンサー
- 回答日時:
#2です。
EnhancedMetaFileのお勉強をしていました。ワークシートに貼り付けた画像を選択した状態で、下記のコードを実行すると、オリジナルのピクセル数が取得できると思います。
・APIの定数、関数等の入手先-必要なものをセットしないと動きません。長いので割愛します。
http://homepage2.nifty.com/nonnon/Win32Api/
・最もキーとなった、参考URL
http://nienie.com/~masapico/api_GetEnhMetaFileBi …
Sub getPixelCount()
Dim SrcData() As Byte
Dim hSrcMetaFile As Long
Dim BufSize As Long
Dim SrcIdx As Long
Dim RecordHeader As emr
Dim strechDibRecord As EMRSTRETCHDIBITS
Selection.Copy
If OpenClipboard(0) Then
hSrcMetaFile = GetClipboardData(CF_ENHMETAFILE)
hSrcMetaFile = CopyEnhMetaFile(hSrcMetaFile, vbNullString)
CloseClipboard
End If
If hSrcMetaFile = 0 Then Exit Sub
BufSize = GetEnhMetaFileBits(hSrcMetaFile, ByVal 0, ByVal 0)
ReDim SrcData(BufSize)
BufSize = GetEnhMetaFileBits(hSrcMetaFile, BufSize, SrcData(0))
If BufSize = 0 Then Exit Sub
SrcIdx = 0
While SrcIdx < BufSize
MoveMemory RecordHeader, SrcData(SrcIdx), Len(RecordHeader)
If RecordHeader.iType = EMR_STRETCHDIBITS Then
MoveMemory strechDibRecord, SrcData(SrcIdx), Len(strechDibRecord)
End If
SrcIdx = SrcIdx + RecordHeader.nSize
Wend
DeleteEnhMetaFile hSrcMetaFile
With strechDibRecord
Debug.Print ".cxSrc - ", .cxSrc
Debug.Print ".cySrc - ", .cySrc
End With
End Sub
Public Function EnumFunc( _
ByVal hdc As Long, _
ByVal pHandles As Long, _
ByVal pRecord As Long, _
ByVal HandleNum As Long, _
ByVal pData As Long) As Long
Dim eh As ENHMETARECORD
RtlMoveMemory VarPtr(eh), pRecord, Len(eh)
EnumFunc = 1
End Function
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Excel(エクセル) エクセルのマクロについて教えてください。 3 2023/02/07 14:47
- フリーソフト 倍率自動調整して全画面表示できるフリーの画像ビューアー 1 2023/08/24 10:55
- Visual Basic(VBA) VBAマクロ 決まっていない行を選択して別シートへ貼付け 4 2023/02/16 16:08
- Visual Basic(VBA) PowerPoint VBA で画像の鮮明度を変更する方法がわかりません 2 2023/03/24 13:34
- デジタルカメラ 画像ファイルのサイズを理解する方法についてお教えください。 3 2022/09/18 12:54
- その他(AV機器・カメラ) 【大至急】写真加工に強い方、お願いします。 現在、自作のブックカバーをプリンパさんに依頼しています。 2 2023/06/07 21:30
- Visual Basic(VBA) エクセルマクロでアニメを作る方法を教えてください。 1 2023/02/07 14:27
- その他(プログラミング・Web制作) 「問題も答えも画像」のクイズを簡単に作れるもの何かありませんでしょうか? 1 2022/05/30 17:29
- Excel(エクセル) エクセル、画像ファイル名の書かれたセル(複数個所)に画像を一括で表示させる方法 1 2023/04/19 00:19
- Excel(エクセル) EXCELマクロでandroidタブレットから取りんだJPEGファイルをうまくセルに貼り付けられない 2 2022/07/31 15:03
このQ&Aを見た人はこんなQ&Aも見ています
-
性格の違いは生まれた順番で決まる?長男長女・中間子・末っ子・一人っ子の性格の傾向
同じ環境で生まれ育っても、生まれ順で性格は違うものなのだろうか。家庭教育研究家の田宮由美さんに教えてもらった。
-
Excel VBA シェイプの原型のサイズ取得方法
その他(プログラミング・Web制作)
-
エクセルマクロでシート内にある画像のみを選択する
Excel(エクセル)
-
画像のピクセルデータの取得
Visual Basic(VBA)
-
-
4
エクセルに画像を貼付け縮小する作業をマクロにしたいのですが、
Excel(エクセル)
-
5
VBAのコマンドボタンの文字列の改行方法は?
Visual Basic(VBA)
-
6
Excel マクロ 画像をリンクせずかつ圧縮して貼りつける方法を教えてください
Excel(エクセル)
-
7
ExcelVBAで挿入画像の縦横サイズをゲットしたいです
Visual Basic(VBA)
-
8
Excelでセル参照したとき、書式も一緒に持ってくるには?
Windows Vista・XP
-
9
EXCEL VBAで、PasteSpecialと Destinationの組み合わせ方法?
Excel(エクセル)
-
10
エクセルVBA
Excel(エクセル)
-
11
マクロを実行すると画像がズレてしまいます
その他(Microsoft Office)
-
12
EXCEL VBAで画像をトリミング
その他(Microsoft Office)
-
13
Excelに画像サイズを書き出し
Visual Basic(VBA)
-
14
ビデオファイルのプロパティの値を取得する方法
その他(Microsoft Office)
-
15
エクセルVBAが途中で止まります
Visual Basic(VBA)
-
16
VBAで画像圧縮はできますか?
Visual Basic(VBA)
-
17
エクセルのシートに貼りつけたbmpをjpegに
その他(Microsoft Office)
-
18
VBAエクセルに貼り付けた画像をセルにあった大きさにしたい(等倍)
Excel(エクセル)
-
19
エクセルに貼付けた写真の容量(何バイトなのか)を確認する方法はありますか?
その他(パソコン・スマホ・電化製品)
-
20
セルに画像挿入すると、右セルに移動するにつれて画像位置がずれるので、ずれていかないようにしたい
Visual Basic(VBA)
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
「画像サイズが○○KBあって、350...
-
エクセルへ画像挿入、元サイズ...
-
メールの添付ファイルを印刷す...
-
ワードの挿入画像が拡大する原因
-
同じ解像度でもサイズが違う画...
-
重たい画像を軽くする方法
-
スキャナで取り込んだ画像の縮小
-
解像度を理解できてませんdpiと...
-
JPEG 画像サイズと解像度について
-
2つのjpegを1つのjpegにまと...
-
Excel2016 まとめてのコピ...
-
PDFに写真を貼る方法
-
Adobe Acrobat 9で挿入したテキ...
-
作成したオブジェクト(長方形な...
-
Illustratorで四角形の底辺だけ...
-
PDF-XChange Viewerで、データ...
-
PDF xchange viewerの操作で困...
-
イラストレーターの線幅ツール...
-
大量に同じ画像を並べたい
-
illustrator グラデーションの...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
エクセルへ画像挿入、元サイズ...
-
ワードの挿入画像が拡大する原因
-
メールの添付ファイルを印刷す...
-
重たい画像を軽くする方法
-
「画像サイズが○○KBあって、350...
-
同じ解像度でもサイズが違う画...
-
ExcelVBAで画像のサイズを調べ...
-
写真の(スマートフォン)比率に...
-
スキャナで取り込んだ画像の縮小
-
photoshopで解像度維持してリサ...
-
画像サイズ(ピクセル)の変更
-
イラストをスキャナーで取り込...
-
PowerPointをjpg保存したとき。
-
ホームページの画像からポスタ...
-
【急募】webの顔写真編集について
-
Photoshopでイラレの画質を鮮明...
-
JPEG 画像サイズと解像度について
-
デジカメで取った写真をFaceboo...
-
フォトショップで画像にシロ枠...
-
2つのjpegを1つのjpegにまと...
おすすめ情報