昨日諸般の事情で昔作ったVisual Studio Basiuc版をVBAで作り直した別バージョンです。
Excel VBA 28 ピクセル、解像度、サイズの関係 2024/09/07
昨日のバージョンはExcelのシートは何も使いませんでしたが、今回はシートとの連動版です。
-----------------------
Sub pxとmmからを解像度求める()
' ppi, px, mmを単精度浮動小数型変数宣言
Dim ppi As Double
Dim px As Double
Dim mm As Double
' セルC4のpx値と、セルC5のmm値を取得
px = Range("C4").Value
mm = Range("C5").Value
' px値とmm値からppi値を求める
ppi = (px * 25.4) / mm
' 結果のppi値をセルD3に表示
Range("D3").Value = ppi
End Sub
Sub ppiとmmからピクセルを求める()
' ppi, px, mmを単精度浮動小数型変数宣言
Dim ppi As Double
Dim px As Double
Dim mm As Double
' セルC3のppi値と、セルC5のmm値を取得
ppi = Range("C3").Value
mm = Range("C5").Value
' ppi値とmm値からpx値を求める
px = (ppi * mm) / 25.4
' 結果のpx値をセルD4に表示
Range("D4").Value = px
End Sub
Sub ppiとpxからサイズを求める()
' ppi, px, mmを単精度浮動小数型変数宣言
Dim ppi As Double
Dim px As Double
Dim mm As Double
' セルC3のppi値と、セルC4のpx値を取得
ppi = Range("C3").Value
px = Range("C4").Value
' ppi値とpx値からmm値を求める
mm = (px * 25.4) / ppi
' 結果のmm値をセルD5に表示
Range("D5").Value = mm
End Sub
マクロを選択・起動します。
ppi=解像度
px=pixels ピクセル
mm=サイズ
ppiとmm値を入力すれば、ピクセル値を表示します。
ppiとpx値を入力すれば、サイズ値を表示します。
pxとmm値を入力すれば、解像度値を表示します。
