No.2ベストアンサー
- 回答日時:
こんにちは。
マクロの記録だけでは厳しいでしょうから、簡単なサンプルです。
アクティブシートのアクティブセルに画像を挿入します。
ボタンに登録するコード
Sub sample()
Dim pic
With Application.FileDialog(msoFileDialogOpen)
.Title = "画像取り込み"
.Filters.Clear
.Filters.Add "画像ファイル", "*.jpg;*.gif"
.AllowMultiSelect = False
'.InitialFileName = "D:\MyDocuments"
.InitialView = msoFileDialogViewPreview
If .Show <> 0 Then
Set pic = ActiveSheet.Pictures.Insert(.SelectedItems(1))
With pic
.Width = 230
.Height = 173
End With
Set pic = Nothing
Else
MsgBox "画像が選択されていません。"
End If
End With
End Sub
サムネイル表示の方が良ければ、
.InitialView = msoFileDialogViewPreview
の定数をmsoFileDialogViewThumbnail
に変更してください。
InitialFileNameは必要ならコメントを外して
適当に設定して下さい。
ありがとうございました。
マクロの記録を色々したりしましたが、
参照する事ができずに苦労していました。
また、色々おしえてください。
宜しくお願いします。
No.1
- 回答日時:
エクセルのマクロの記録をとって、コードをながめてみてください。
そして、(質問者)自分の場合は、どこを々変えるのか、そのためにはどうコードを帰るのか質問してください。>コードと説明を教えて下さい
では質問丸投げです。マクロの記録という、便利な「先生」を活用しましょう。
ーー
>エクセル内
質問の機能は、エクセルの本来の機能でなく、それにふさわしい(フリーでも)画像処理ソフトがあると思います。
「何でもエクセル」は適当でない。自作でなく、エキスパートにより作られた、ふさわしいものを使う、というのが、コンピュター利用の本筋だと思います。
画像参照をする事は、マクロの記録だけではできませんでした。
色々試しましたが、専門的な知識の方に聞くのが一番だと判断しました。
フリーの画像処理ソフトでは、VBAの勉強はできません。
自作でやる事も、コンピューター利用の本筋だと思います。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Visual Basic(VBA) 【VBA】写真の縦横比を変えずに貼り付ける 5 2023/06/13 11:42
- Excel(エクセル) excelvbaでスライドショーを作りたい 2 2023/04/20 14:32
- Visual Basic(VBA) 動かなくなってしまった古いVBAを動くようにしたい 8 2022/09/20 13:57
- Excel(エクセル) Excel VBAについてです。 少しだけ知識はあるのですが、 うまくいかなかったので 質問させてい 3 2022/09/13 18:40
- その他(データベース) Accessフォームからパラメーターで表示したレコードを指定のExcelのセルへ転送する方法について 2 2022/08/22 18:04
- Excel(エクセル) エクセルで条件付き書式を使わずにセルの文字の色を変える方法を教えて下さい 8 2023/07/28 01:15
- その他(パソコン・スマホ・電化製品) アンドロイドスマホの画面にクリックするとJPG写真が開くショートカットを作りたいのですが、方法をおし 3 2023/08/27 10:01
- Excel(エクセル) エクセルに写真の貼り付けができません。 4 2023/01/26 22:56
- Visual Basic(VBA) VBA 複数のブックに同じ列を表示させる方法 2 2022/07/20 23:49
- Excel(エクセル) エクセル バーコード作成で他のシートを参照するには? 2 2023/05/03 16:57
関連するカテゴリからQ&Aを探す
おすすめ情報
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
貼り付けをマクロで禁止させたい。
-
マクロでエクセル内のアウトラ...
-
不明なコマンドです("FROM")。...
-
Excel2010でふりがなが漢字にな...
-
オペランドが足りませんとコメ...
-
pythonでrequestsが使えない
-
エクセル 複数シートのフィル...
-
【ExcelVBA】sheet作成時にマク...
-
【素人です】エクセルを使おう...
-
DBのFLOATカラムに格納した値の...
-
VBA シートの切り替えができな...
-
JWWでDXFファイルを開きたい
-
エクセル/マクロ Exit Subが実...
-
Access2010 「演算子がありませ...
-
OBSが起動できません
-
VBAで横データを縦データに変換...
-
マクロ実行ボタンがコピー出来ない
-
エクセルの文字間スペースを入...
-
GhostからWin XPがインストール...
-
Mac OS X Server ver.10.3.9にM...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
あみだくじの横線の本数の求め方
-
貼り付けをマクロで禁止させたい。
-
ゾンビエクセル・・・(Exc...
-
マクロでエクセル内のアウトラ...
-
エクセルのスピンボタン
-
エクセルでコメント挿入した部...
-
エクセルVBAのRand()関数は?
-
エクセルのselect case で 100...
-
不明なコマンドです("FROM")。...
-
Access2010 「演算子がありませ...
-
【ExcelVBA】sheet作成時にマク...
-
WordPressをインストールしてい...
-
オペランドが足りませんとコメ...
-
Excel2010でふりがなが漢字にな...
-
エクセル/マクロ Exit Subが実...
-
エクセルの文字間スペースを入...
-
pythonでrequestsが使えない
-
VBA シートの切り替えができな...
-
mfc42.dllファイルってなんです...
-
エクセル 「実行時エラー"13":...
おすすめ情報