10/07/16 22:06:31
【1 OSの種類 】 WindowsXP
【2 Excelのバージョン 】 Excel2002
四角い図形の中にある、名前と今日の日付を書き換えるマクロを
自動記録でやってみましたが、動作しません。
どこを直せばいいのか教えてください。
まず最初に構成から。
下記のような四角い図形があり、グループ化になっています。
URLﾘﾝｸ(upload.jpn.ph)
向かって左側のName1は"Rectangle 4"、右側のName2は"Rectangle 5"です。
図2のように、グループ化したままでも、手動ならシングルクリックで
書き換えることができるのに、マクロの自動記録ではできませんでした。
そこで、一度グループ化を解除して、中を書きかえてから
再グループ化したマクロをつくりました。
次に、Name1に当たるところをNAME1 = Range("B3").Value、
今日の日付をDATE1 = Format(Date, "dd/mmm/yy")にしました。
ところが、下記のマクロだと、ActiveSheet.Shapes("Group 9").Selectで
止まってしまい、実行時エラー'-2147024809 (80070057)':
指定した名前のアイテムが見つかりませんでした とメッセージが
出てしまいます。
Sub NAME1を記入()
Dim NAME1 As String, DATE1 As String
NAME1 = Range("B3").Value
DATE1 = Format(Date, "dd/mmm/yy")
ActiveSheet.Shapes("Group 9").Select
Selection.ShapeRange.Ungroup.Select