ここから本文です

エクセルで9列目の四角部分に写真のファイル名を入れたいのですが、どのようにす...

s_m********さん

2015/7/109:49:47

エクセルで9列目の四角部分に写真のファイル名を入れたいのですが、どのようにすればいいでしょうか。
因みに写真の自動貼り付けはこのように入力しています。

Private Sub CommandButton1_Click()
Range("B3").Select
Application.Dialogs(xlDialogInsertPicture).Show
Selection.ShapeRange.LockAspectRatio = msoTrue
Selection.ShapeRange.Height = 100
Selection.ShapeRange.Width = 215
Selection.ShapeRange.PictureFormat.CropTop = 0
Selection.ShapeRange.PictureFormat.CropBottom = 0
Selection.ShapeRange.IncrementLeft 8
Selection.ShapeRange.IncrementTop 0
End Sub

お詳しい方、ご教示お願い致します。

B3&quot,End Sub,msoTrue,ご教示,エクセル,Dim FName,InStrRev

閲覧数:
67
回答数:
1

違反報告

ベストアンサーに選ばれた回答

ann********さん

2015/7/110:31:30

Application.Dialogs(xlDialogInsertPicture).Show
でシート上に挿入した画像のファイル名は取得できません。

ご提示のマクロ記述の先頭から
Application.Dialogs(xlDialogInsertPicture).Show
までの記述を、次のように書き換えてみてください。

記述が長くなりますので、ファイル選択ダイアログ表示時のファイルの種類制限やキャンセル時のエラー処理はしていません。

Private Sub CommandButton1_Click()
Dim FName
Range("B3").Select
FName = Application.GetOpenFilename
ActiveSheet.Pictures.Insert(FName).Select
Range("B9").Value = Mid(FName, InStrRev(FName, "\") + 1)

この回答は投票によってベストアンサーに選ばれました!

この質問につけられたタグ

みんなで作る知恵袋 悩みや疑問、なんでも気軽にきいちゃおう!

Q&Aをキーワードで検索:

Yahoo! JAPANは、回答に記載された内容の信ぴょう性、正確性を保証しておりません。
お客様自身の責任と判断で、ご利用ください。
本文はここまでです このページの先頭へ

「追加する」ボタンを押してください。

閉じる

※知恵コレクションに追加された質問は選択されたID/ニックネームのMy知恵袋で確認できます。

不適切な投稿でないことを報告しました。

閉じる