【Excel】画像をセルに埋め込む方法
こんばんは。 恐らくWebサイトなどからリンク付きの画像をドラッグしてコピーされていると思います。 その場合は、Excelに貼り付けた後に１つ１つの画像を右クリックして「リンクの削除」を実行するか、以下のマクロを使ってまとめてリンクを解除する必要があります。 -------------------------------------------- Sub RemoveAllImageLinks() Dim shp As Shape Dim i As Integer For Each shp In ActiveSheet.Shapes On Error Resume Next ' 外部へのリンク（LinkFormat) がある場合の解除 If Not shp.LinkFormat Is Nothing Then shp.LinkFormat.BreakLink End If On Error GoTo 0 ' ハイパーリンクが設定されているか確認 If shp.Type msoGroup Then ' 画像単体の場合 On Error Resume Next If Not shp.Hyperlink Is Nothing Then ' ハイパーリンクが設定されていれば削除 shp.Hyperlink.Delete End If On Error GoTo 0 Else ' グループ化されている場合は各要素をチェック For i = 1 To shp.GroupItems.Count On Error Resume Next If Not shp.GroupItems(i).Hyperlink Is Nothing Then shp.GroupItems(i).Hyperlink.Delete End If On Error GoTo 0 Next i End If Next shp End Sub
コメントする コメントをキャンセル 【Excel】印刷範囲の点線・青い線を消す方法 - 改ページ線・改ページプレビューの線 エクセル（Microsoft Office Excel） 【Windows11】レジストリエディターの開き方３選｜regedit起動手順 新しいOutlookをクラシックに戻す方法 - サインイン画面で詰まった場合も解決 アウトルック（Microsoft Outlook） 【Windows11】コントロールパネルの開き方３選｜control起動手順 【Outlook】改行マーク（↵）を消す方法｜ショートカットキーでも解決 アウトルック（Microsoft Outlook） 【Outlook】自動返信（不在通知）メールを設定する方法 アウトルック（Microsoft Outlook） よく読まれている解説 Windows11でタスクバーの色を変更する方法！基本設定からトラブル対策まで徹底解説 【Word】行間を詰める・狭くする方法と詰まらない時の対処法 ワード（Microsoft Office Word） 【Outlook】メール本文にハイパーリンクを貼る方法 - Webページやファイルへのリンク アウトルック（Microsoft Outlook） 【Outlook】正常に起動しない場合の逆引きガイド アウトルック（Microsoft Outlook） 【Excel】ファイルにパスワードを設定・解除する方法｜読み取り・書き込み保護 エクセル（Microsoft Office Excel） 【Outlook】メールテンプレートの作成方法と呼び出し方 アウトルック（Microsoft Outlook） PCを起動した日時とシャットダウンした日時を確認する方法 Windows11 【Excel】ヘッダーとフッターを設定する方法｜ページ番号、日付、ファイル名など エクセル（Microsoft Office Excel） 【Outlook】アドインを無効にする方法｜起動しない・動作が重い原因を解決 アウトルック（Microsoft Outlook） 【Windows11】スタートアップ設定でアプリを自動起動- プライバシーポリシー・免責事項
- お問い合わせフォーム
- 運営者情報 | 情シスの自由帳