VBA：名前付き画像の選択に関するトラブル

Question

いつも大変お世話になっております。masafumi55です。此度もつまづきました。検索力がないのか30分ほど調べても出てきませんでした。
デバックで値確認も行いました。手も足も出ません。お忙しいところ恐縮ですが、ご教示お願いいたします。

<■目的>
名前「2」の画像を選択し削除することが目的となります。

<■トラブル>
下記の<<Code1>>を実行した場合、「指定した名前のアイテムが見つかりませんでした」とエラーコメントが出てしまいます。

前提：
pageの値は3であることは確定です。理由はデバックした際に、下記の条件分岐を通ったことが確認出来たためです。
(ゆえに、「page - 1」の値は　「2」になりますから、それをString型に変換することで「Shapes("2")」ということになり、名前が「2」の画像を選択削除できるはずなのですが、、、。その他にも、「"Str(page -1 )"」とダブルクオテーションで囲ってみたりもしましたがだめでした。)

<<Code1>>

If page = 3 Then
            Worksheets("importImageCardViewList").Shapes(Str(page - 1)).Select
            Selection.Delete

<■やってみたこと>
以下のとおり、Shapesの名前を計算式でなく、直接文字列として目的の数字「2」をいれてまわしてみました。結果は、名前「2」の画像を選択の上削除ができました。

<<Code2>>

If page = 3 Then
            Worksheets("importImageCardViewList").Shapes("2").Select
            Selection.Delete

<■質問事項>
値が「3」のpage変数を使用し、名前「2」の画像を選択するにはどのような記述があるのでしょうか。
お忙しいところ恐れ入りますが、ご教示お願いいたします。

Answer 1

VBAのStr関数は、先頭に符号が入るスペースが確保された文字列(先頭に余分なスペースが付けられた文字列)を返します。

そのため、str(2)は"2"ではなく、" 2"になります。

この、"2"と" 2"の違いが原因になっているのではないでしょうか？

Comments

[masafumi55]

coco_bauer様
詳細なご解説誠にありがとうございます。
"2"と" 2"は確かに違いました。正直この「半角ｽﾍﾟｰｽ」をわざわざ作るstr()に興味がわきました笑。
今のへっぽこな頭では「なんでわざわざ半角つくるん？」って感じですが、きっと用途があるのでしょうね。お忙しい中のご教授、誠にありがとうございました！

Answer 2

下記ではいかがでしょうか。

CStr(page - 1)

Strで正の数値を変換すると頭に半角スペースが入ってしまうと思います。

Comments

[masafumi55]

radames1000様

さっそくのご回答誠にありがとうございます。解決いたしました！
文字列変換は、「Str()」と「CStr()」の2種類存在していたのですね。
検索ワードで、「VBA 文字列変換」を実行した場合、「Str()」とダブルクオテーションの紹介があったので、勝手にそれだけと認識してしまいました(汗)
とても勉強になりました！ご教授誠にありがとうございます(^^)