エクセルマクロでセルにオートシェイプを張る方法を調べていて、ここで丁度いいのを見つけました。
http://oshiete1.goo.ne.jp/kotaeru.php3?q=808898
見つけた下記のマクロを実際にやってみました。
A1に１を入れるとB2にハートマークが出ます。
しかし、さらに２を入力してもB2のハートは削除されてくれません。
さらに１をいれると、ハートの上にハートが重なってしまいます。
１ならハート、それ以外の入力ならハートが消えるようにするにはどうすればいいのでしょうか？
Private Sub Worksheet_Change(ByVal Target As Range)
If Target <> Range("A1") Then Exit Sub
If Target.Value = 1 Then
With ActiveSheet.Range("B2")
ActiveSheet.Shapes.AddShape(Type:=msoShapeHeart, _
Left:=.Left, Top:=.Top, Width:=.Width, Height:=.Height).Select
End With
End If
End Sub
エクセルマクロでセルにオートシェイプを張る方法を調べていて、ここで丁度いいのを見つけました。
http://oshiete1.goo.ne.jp/kotaeru.php3?q=808898
見つけた下記のマクロを実際にやってみました。
A1に１を入れるとB2にハートマークが出ます。
しかし、さらに２を入力してもB2のハートは削除されてくれません。
さらに１をいれると、ハートの上にハートが重なってしまいます。
１ならハート、それ以外の入力ならハートが消えるようにするにはどうすればいいのでしょうか？
Private Sub Worksheet_Change(ByVal Target As Range)
If Target <> Range("A1") Then Exit Sub
If Target.Value = 1 Then
With ActiveSheet.Range("B2")
ActiveSheet.Shapes.AddShape(Type:=msoShapeHeart, _
Left:=.Left, Top:=.Top, Width:=.Width, Height:=.Height).Select
End With
End If
End Sub
エクセル2003で印刷指定マクロをつくりましたが、「実行時エラー424 オブジェクトがありません」とエラーがでるシートと正常に動くシートがあります。しかも、同じブック内です。
コンポボックスか条件付き書式が入っていることが原因ではと思うのですが、よく分かりません。
教えて下さい。以下にそのマクロを記述します。
Sub PrintArea_5()
Dim pArea As Range
Worksheets("選抜").Select
Prompt = "印刷範囲をマウスでドラッグして下さい。"
Set pArea = Application.InputBox(Prompt, Type:=8)
ActiveSheet.PageSetup.PrintArea = pArea.Address
End Sub
