-----------------------
Sub ppiとpxからmmを求める()
Dim ppi As Double
Dim px As Double
Dim mm As Double
Dim ppi_Input As String
Dim px_Input As String
ppi_Input = InputBox _
("ppiを入力してください(例: 220)", "ppi入力")
If ppi_Input = "" Then Exit Sub
px_Input = InputBox _
("ピクセル数を入力してください(例: 1920)", "ピクセル入力")
If px_Input = "" Then Exit Sub
ppi = Val(ppi_Input)
px = Val(px_Input)
If ppi > 0 And px > 0 Then
mm = (px / ppi) * 25.4
MsgBox "計算結果: " & Format(mm, "0.00") & " mm", _
vbInformation, "計算結果"
Else
MsgBox "ppiとピクセル数を正しく入力してください。", _
vbExclamation, "入力エラー"
End If
End Sub
Sub pxとmmからppiを求める()
Dim px As Double
Dim mm As Double
Dim ppi As Double
Dim px_Input As String
Dim mm_Input As String
px_Input = InputBox _
("ピクセル数を入力してください(例: 1920)", "ピクセル入力")
If px_Input = "" Then Exit Sub
mm_Input = InputBox _
("ミリメートルを入力してください(例: 210)", "ミリメートル入力")
If mm_Input = "" Then Exit Sub
px = Val(px_Input)
mm = Val(mm_Input)
If px > 0 And mm > 0 Then
ppi = (px / mm) * 25.4
MsgBox "計算結果: " & Format(ppi, "0.00") _
& " ppi", vbInformation, "ppi計算結果"
Else
MsgBox "ピクセル数とミリメートルを正しく入力してください。", _
vbExclamation, "入力エラー"
End If
End Sub
Sub ppiとmmからpxを求める()
Dim ppi As Double
Dim mm As Double
Dim px As Double
Dim ppi_Input As String
Dim mm_Input As String
ppi_Input = InputBox _
("ppiを入力してください(例: 220)", "ppi入力")
If ppi_Input = "" Then Exit Sub
mm_Input = InputBox _
("ミリメートルを入力してください(例: 210)", "ミリメートル入力")
If mm_Input = "" Then Exit Sub
ppi = Val(ppi_Input)
mm = Val(mm_Input)
If ppi > 0 And mm > 0 Then
px = (ppi * mm) / 25.4
MsgBox "計算結果: " & Format(px, "0") _
& " ピクセル", vbInformation, "ピクセル計算結果"
Else
MsgBox "ppiとミリメートルを正しく入力してください。", _
vbExclamation, "入力エラー"
End If
End Sub
-----------------------マクロを選択・起動します。
ppi=解像度
px=pixels ピクセル
mm=サイズ
■ppiとmmからpxを求めるppiとmm値を入力すれば・・・
ピクセル値を表示します。
■ppiとpxからmmを求めるppiとpx値を入力すれば・・・
サイズ値を表示します。
■pxとmmからppiを求めるpxとmm値を入力すれば・・・
解像度値を表示します。