|
できました!!
こんな感じです。
Sub test()
'
' test Macro
' マクロ記録日 : 2006/10/31 ユーザー名 : ibm
'
'
Dim f As String
f = Application.GetOpenFilename("(*.jpg),*.jpg")
If f <> "False" Then
MsgBox f
ActiveSheet.Pictures.Insert(f).Select
Selection.ShapeRange.LockAspectRatio = msoTrue
Selection.ShapeRange.Height = Range("B5").Offset(1).Top - Range("B5").Top
Else
MsgBox "キャンセル"
Exit Sub
End If
End Sub
とりあえず第一段階はクリアです。
この次はこれらの操作が画面上でもう少しスマートに見えるように、工夫してみます。
すぐには頼らずに少し勉強してみます。
でも、すごく助かりました。
ぱっせんじゃーさん、Mkさん、どうもありがとうございましたm(__)m
|
|