- Excel VBA 質問スレ Part38 [転載禁止]©2ch.net
425 ：デフォルトの名無しさん[sage]：2015/10/18(日) 01:12:52.23 ID:Vej+inz9 - >>423
Dim shp As shape
For each shp in activesheet.shaps
If shp.type = msopicture then i = i + 1: shp.name = "写真" & i
next
end sub
| - Excel VBA 質問スレ Part38 [転載禁止]©2ch.net
432 ：デフォルトの名無しさん[sage]：2015/10/18(日) 16:28:09.80 ID:Vej+inz9 - >>426
本来の戻り値をByRefで渡した変数に記録させて、Functionの戻り値でエラーを表現するのがスマートかな。
エラー発生時にTrueを返すようにするとif Function Then Goto ErrTrapみたいな形に出来るし。
|
|