Excelリンク切れ画像ファイル復活マクロを運用する(Excel2010)

Excelシート上に貼られたリンク付き画像ファイルのリンク切りマクロを作ったんだけど・・・

画像挿入（Pictures.Insert メソッド）でリンク切れになったファイルをゴリ押しで復活させるマクロを作った。（妥協編・完） | happyman web

これシート一枚一枚やるのめんどくさいなあと言う気分になった。

少なくともファイルの複数シートは処理して欲しい。

【複数シートを一気に片付けるマクロを作る】

Sub リンク画像クリップボード貼り付け()

Dim shp As Shape

For Each shp In ActiveSheet.Shapes

If shp.Type = msoLinkedPicture Then

shp.Select

Selection.Copy

ActiveSheet.PasteSpecial Format:=”図 (JPEG)”, Link:=False, DisplayAsIcon:= _

False

shp.Delete

End If

Next

End Sub

↑ここまでは前回に作った。

Sub 全シート画像()

Dim i As Long　←あんちょこ見て真似ました（意味がわかってない・・・）

For i = 1 To Worksheets.Count　←一枚目から最後のシートまで

If InStr(Worksheets(i).Name, “写真”) > 0 Then　←もしシート名に”写真”と入っていたら

Worksheets(i).Activate　←そのワークシートをアクティベート（認識）させる

Call リンク画像クリップボード貼り付け　←クリップボート貼り付けマクロを呼び出す

End If　←　もし　終わり

Next　←次ぎに繰り返し

End Sub

カンニングペーパーのメモを忘れてしまったが、これで何とか作業ができそうなので、これでやります。

ショートカットキーを与えておこう。これでかなり効率化が出来た。【たぶんこれで終了】

（でも時々デバッグが走るんだよなあ･･･なんだろね・・・）

Follow me!

関連

目を開けたまま寝言を言えるようになれば出世できます

Amazon.co.jpで買う

答えは自分の中にある！人生を変える「瞑想コーチング」〜未来を変え、願望実現できる奇跡の方法〜

￥1,200 (2024年11月23日 06:11 GMT +09:00 時点 - )

Amazon.co.jpで買う

自分をマネジメントする自己実現メソッド: 本当は教えたくないコーチングスキル１７選ビジネススキル関連書籍

￥500 (2024年11月23日 06:11 GMT +09:00 時点 - )

Amazon.co.jpで買う

【目的】88枚のさまざまな価値観が描かれたカードを噛み締めながら自分と対話をすることで自己理解を深め、チームメンバーとシェアしあう事で他者理解に繋がります。他者理解を深めることで心理的安全性を高め、信頼関係が構築されていきエンゲージメント（働きがい）が高まります。似たような言葉のカード「成長」「進歩進化」「向上心」を自分の中でどれがしっくりくるか選択することで、自分らしさを表現することが可能となります。【活用場面】1on1, チームビルディング、社内研修、新人研修、インターンシップ、自己分析...

ワクワークする最高のチームを目指し心理的安全性と働きがいと生産性が向上【エンゲージメントカードplus（価値観カード）】 1on1 社内研修チームビルディング自己分析転職活動リーダー採用コミュニケーションキャリア自己肯定感新人研修ワークショップカードゲーム

￥4,290

【目的】88枚のさまざまな価値観が描かれたカードを噛み締めながら自分と対話をすることで自己理解を深め、チームメンバーとシェアしあう事で他者理解に繋がります。他者理解を深めることで心理的安全性を高め、信頼関係が構築されていきエンゲージメント（働きがい）が高まります。似たような言葉のカード「成長」「進歩進化」「向上心」を自分の中でどれがしっくりくるか選択することで、自分らしさを表現することが可能となります。【活用場面】1on1, チームビルディング、社内研修、新人研修、インターンシップ、自己分析... もっと読む

(2024年11月23日 06:11 GMT +09:00 時点 - )