なぜなら次第に 「人の手を噛んでもOK」 と学習してしまうので、飼い主さんだけでなく他の人の手も噛んでしまいます。非常に危険です。 対策方法 この場合の対策方法は、歯がゆそうにしていたら 噛んでも大丈夫なオモチャ を与えるようにしましょう。ぬいぐるみでもロープでもなんでもOKです! 遊びで興奮して甘噛みする場合 本気になって遊んでいると、その延長線上で思いっきり噛んでくることもあります。しかも飼い主さんが「痛い!」などと叫んで興奮すると、トイプードルは 「飼い主が喜んでる・楽しんでる」 と勘違いして甘噛みがエスカレートしてしまいます。 この場合の対策方法は、 噛まれた時に何も言わずスッと立ち上がることです。 そして背を向けてその場から立ち去りましょう。 これを繰り返すとトイプードルは徐々に 「あれ?」 と思うようになり、自分が噛んだことで遊んでもらえなくなると学習していきます。噛まれた時に「痛い!」などと興奮してはいけません。 噛めば要求が通ると思っている場合 甘噛みをやめさせたいからと、噛んでくる度におやつをあげるのは絶対にやめましょう!なぜなら 「甘噛みをすればおやつがもらえる」 と学習してしまうからです。 要求による甘噛みをしてきた場合、 口吻(マズル)を掴んで 「ダメ!」 と低い声で叱りましょう。 口吻は犬の急所なので、掴まれることをすごく嫌がります。「噛むと口吻をつかまれる」と学習させることで、次第に噛んで要求してこなくなりますよ! トイプードルの無駄吠えの治し方と対策方法はこれ!
引っ張りっこをして遊ぶ 飼い主さんがおもちゃを持つ手を動かすのを止め、犬が引っ張ってもビクともしないように身体の近くでロックする。 引っ張りっこが終わってしまって、犬がつまらなくなっておもちゃを放したら褒め、またおもちゃを返す 上記1~3を繰り返す おもちゃをロックしたらすんなり放すようになったら、「ちょうだい」のコマンドを掛ける 追いかけっこ 追いかけっこも犬が大好きな遊びの一つですが、おいかけっこ遊びには一つ鉄則があります。それは、 絶対に犬を追いかけないこと ! 飼い主さんが犬を追いかけるのではなく、犬に飼い主さんを追いかけさせてください。 飼い主さんを追いかけるのって楽しい!と思わせておけば、呼び戻しの訓練のベースができます。 百聞は一見にしかず。動画でご覧ください。 生後3ヶ月~4ヶ月は好奇心旺盛!こまった行動のオンパレード! フニャフニャだったトイ・プドルの子犬も、生後3か月を迎えると、身体もしっかりとして自分に自信がついてきます。好奇心旺盛になり、怖いもの知らずですので、次々と新しいことに興味を発見し、果敢に挑戦します。 また、子犬どうしの遊びの中でも、色々なことを学ぶ時期。犬の遊び相手がいなければ、飼い主さんに対して色々な遊びを仕掛けてきます。 手に余る次期でもありますが、 この好奇心を上手にコントロールしてゆくことこそが、「人間との付き合い方」を教える上でとても重要 です。 甘噛みは、子犬みんなが通る道 子犬の乳歯は鋭くとがっているので、甘噛みされるとイテテテテテ!! !ですよね(笑)。子犬を飼い始めた人の腕は傷だらけでしょう。 甘噛みは、トイ・プードルに限った問題ではありません。どんな犬種でも、元気な子犬であれば大なり小なり甘噛みはあるものです。元気で好奇心が旺盛な犬ほど、甘噛みが強く出る傾向があります。 好奇心が強いという事は、性格が明るく外界に対してオープンであるという事。子犬には無くてはならないとても大切な要素です。 好奇心をつぶすことなく、上手に「人は噛んではいけない」事を教えてゆきましょう 。 甘噛みに関しては、別記事で詳しく対処法を案内していますので、そちらを参考にしてくださいね! アルファロールを練習しよう 「アルファロール」という言葉を聞いたことがありますか? 犬は、自分より強いものに対して「降参」の意志を表現するためにお腹を出すしぐさをします。 飼い主さんに対してお腹を見せる事に抵抗をなくすことは、つまりは飼い主さんに降参したことになるため、犬をひっくり返しましょう、というのがアルファロールです。 では、アルファロールは本当に有効なのでしょうか?
Pictures. Insert ( "C:\DATA\写真"). Top = Range ( "B2"). Top '画像の上位置. Left = Range ( "B2"). Left '画像の左位置. Cut '画像を切り取り(画像のリンク先を外すため) End With With Sheets ( "Sheet1"). Range ( "B2"). Select. Paste '画像を貼り付け(画像のリンク先を外すため) End With End Sub ' ●実行前~実行後 ※プログラム実行後、フルパスで指定した"C:\DATA\写真"から写真を取り込みワークシート「Sheet1」のセル「B2」を写真の左上を基準に挿入しました。 (画面クリックして拡大) 指定た画像ファイルを表示位置と大きさ(高さ・幅)を指定して挿入(表示)します。(サイズ調整) ●プログラム説明 サンプル② 【 メソッド 】 下記のサンプルプログラムは、サンプルプログラム①同様に、ワークシートに写真(画像)を挿入するサンプルプログラムですが、今回は、ワークシート(Sheet1)のセルB2(サイズ)に収まる様に写真ファイル(1枚)を挿入して、大きさを調整してセル(B2)に挿入します。 ●プログラム実行条件(下記のプログラムの実行するためには、必須条件です。) 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 ' '******** ******* ' Sub Image02 () '指定た画像ファイルを表示位置と大きさ(高さ・幅)を指定して挿入(表示)します。 With Sheets ( "Sheet1"). EXCEL VBA エクセルシートに写真（画像）を挿入する・写真（画像）を表示・写真（画像）を削除（Picture）. Left '画像の左位置 If. Width > Range ( "B2"). Width Then 'セルB2の幅と画像の幅を比較する. Width = Range ( "B2"). Width '画像の幅がセルB2の幅より大きい場合は、セルB2の幅に写真を合せる。 End If If. Height > Range ( "B2"). Height Then 'セルB2の高さと画像の高さを比較する. Height = Range ( "B2"). Height '画像の高さがセルB2のより高さが大きい場合は、セルB2の高さに写真を合せる。 End If.
LockAspectRatio = msoTrue '縦横比固定. Placement = xlMoveAndSize '移動&サイズ変更. ScaleHeight 1, msoTrue '縦を元のサイズに.
LockAspectRatio = msoFalse もちろん上記のコードは、アクティブシート上に画像が1つしか挿入されていないという前提です。もし、複数の画像がすでに挿入されていて、そこに新しい画像を挿入するのでしたら、次のように工夫しなければなりませんね。 Sub Macro14() With (). LockAspectRatio = msoFalse あるいは、名前で特定するのでしたら、次のような感じでしょうか。 Sub Macro15() 幸いなことに、挿入したPictureオブジェクトの名前(Nameプロパティ)と、指定するShapeオブジェクトの名前(Nameプロパティ)は、同じ文字列が設定されますので、その名前を流用しています。 ちなみに、今回写真でご登場いただいたのは、私の行きつけの店「地酒遊楽 裏や」の店長です。いつも、お世話になっています。裏やは、あの野崎酒店の系列で、全国の美酒を常時160種類取り揃えた地酒専門居酒屋です。旬のお料理と絶品の日本酒をご用意して、皆様のご来店を心よりお待ちしております。池袋東口から徒歩5分。お近くにお越しの際には、ぜひお気軽にお立ち寄りください。