スキルアップ・問題解決なら、モーグにおまかせ！

ワークシートに複数の画像（写真）を貼付け、各々のマクロを登録しました。
画像には各々を識別する名前を設定してあります。例、写真ファイルのファイル名です
画像の名前が長く、30桁を越えることあります。
 
Application.Callerで画像の名前を取得するコード
Set Shape = Activesheet.Shapes(Application.Caller)
 
で「指定のアイテムがない」エラーが発生します。
確認の結果、Application.Callerの文字数が不足していることが分かりました。
 
制約事項、対処方法など、ご教示をお願いします。

お久しぶりですね。お元気でしょうか。
 
手元で実験してみましたら、画像の.Nameの長さは３０文字までのようですね。
ところで画像の名前が長くなるというのは、どのような作り方をされるとそうなるのでしょうか。
 
画像ファイル名の長さに依存するのであれば、ショートネーム(8.3形式。C:\ドライブに限定ですが）を
使う方法が思いつきましたが、元のファイル名の長さは関係ないようです。
名前の付け方によっては、なんらかの工夫ができそうです。（漠然としてますが）

引用:
複数の画像（写真）を貼付け、各々のマクロを登録しました。

読み飛ばしていました。　# なにせ暑いもので
ファイル名を使っているんですね。
 
それならショートネーム利用が有効でしょう。(C:ドライブ限定ですが）
http://officetanaka.net/excel/vba/filesystemobject/file09.htm

ShortName は 思いつかなかった。
 
simpleさん、『C 限定』 とは どんな理由でしょうか？
Dなり、割り付け済みネットワークドライブで確認してみましたが、見つかりませんでした。
理由をお教え頂ければ幸いです。
 
 
 
 
多分、わざわざ ファイル名にしているという事は ファイルを参照する事があるのでしょうけど
ShortPath や、ShortName から
GetFile を行うと、Path や、Name が 8.3 にて 得られる・・
 
ショートではなく、ノーマル？ Parent Path、Name を
得ようと思うと、For Each で 廻すくらいしか思いつかなかったのですけど、それしかないでしょうかね？
 
xlsx や、 jpeg の様な 4文字の拡張子の場合、
ShortName には、拡張子が含まれなくなり、
GetExtensionName では 拡張子も得られなくなる事に注意が必要ですね。
 
 
セキュリティー上、ショートカット名を無効にしている場合もあるみたいですね。
 
C ドライブのショートパス設定が有効になっていないWindows 10 環境に mailto リンクから iNotes を起動できません
https://support.hcl-software.com/csm?id=kb_article&sysparm_article=KB0082478

すこし手間になるかもしれませんが、画像につける名前はシンプルなものにしておき、ワークシートに画像の名前とファイルパスの対応表を作成してそこから読み込むようにしてはどうでしょうか。

みなさん、お久しぶりです。
 
なが〜いファイル名の理由
 
１年間で２０〜３０件の工事物件があります。
１件につき、全体風景と、個別風景の２枚、これを工事前と工事後の２回に分けて撮影します。
明細リスト１件につき、２枚の関連つけた写真リストを作成する仕事があります。
撮影は明細リストの順番とは限りません。
明細リストの順序番号と写真を紐付けるためのマクロを組んでいます。
担当者は、毎年変わります。
 
私が考えた、紐付け処理の仕組みは、
サムネイルを作成し、サムネイル画像をクリックして、写真用リストに貼り付ける
というものです。明細リストには、工事場所などの説明文はありますが、説明文が正しいという確証はありません。だから、間違って別の番号に紐付けすることもあり得ます。
 
問題が発生したのは、テストデータなんですが、
iPhondeで撮影のファイルですが、デフォルトのアイル名をわざわざ変更したらしくなが〜いファイル名になっていました、規則正しくなっているのでツールを使ったと思われます。
 
以降は、次回にします。

>simpleさん、『C 限定』 とは どんな理由でしょうか？
>Dなり、割り付け済みネットワークドライブで確認してみましたが、見つかりませんでした。
＞理由をお教え頂ければ幸いです。
私も理由は知りませんが、Cドライブしか8.3形式ファイル名は持たないのが仕様のようです。
C以外はそうした必要性が乏しいと判断しているのでしょう。
 
ちなみに、Dir　/X とすると8.3形式名が表示されます。(C:ドライブ傘下だけです）
また、ファイルサーチでも8.3形式名もマッチの対象になります。
*.XLS で .xlsxにも.xlsmにもマッチするのは、8.3形式ではいずれも拡張子は.XLSだからです。

続き
 
Application.allerが文字列を返す場合、３０文字以内は仕様なんですね。
１日悩んでいました。これですっきりしました。
ありがとうございました。
 
テストデーは、２０２３年度のものです。当時の担当者が勝手にファイル名を変更したと思います。
工事前の写真はファイル名を変更しているのに
工事後の写真はファイル名は、デフォルトの名前となっています。(iPhoneの規定通り）
ファイル名を変更の意図がわかない状況ですが、いまさら、聞いても覚えていないと思います。
ファイル名を画像の名前に使うことに固執しているわけではありませんので、
検証可能な手段を考えます。
関連付けした写真リストが作成できれば、元の写真ファイルは不要と思われるので、
そのあたりも併せて検討しいます。
 
ありがとうございました。