飼い主からの相談に専門の獣医師が回答します リサコ (質問主) 犬 7歳 メス チワワ 体重:3. 4kg 飼育歴:6年0ヶ月 居住地:福岡県北九州市門司区 飼育環境:室内 床を異常に舐めます。 原因とやめさせる方法を知りたいです。 1歳くらいから、床舐めをしていましたが、 ここ最近異常に舐めています。 鼻が詰まるくらいに舐め方が激しいです。 ひどくなったのは、尿路結石になり、 頻尿になってからです。 (こちらは治療中です) カーペットやコルクマットを常に舐めていますが、ひどくなる前から、病院の先生からはあまり気にしなくていいと言われました。 しかし部屋の空気など、衛生的によくないので なんとかやめさせたいのですが、なにかよい方法はないでしょうか?
犬と暮らす 2019/11/30 UP DATE 犬が家の床をペロペロと舐めている 光景を目にしたことはありませんか? 衛生的にも汚いので「やめて!」と思ってしまいますが……なぜ床を舐めてしまうのでしょうか。 今回、その理由をいぬのきもち獣医師相談室の先生に聞いてみました! 犬が床を舐めてしまうときの心理 ーー犬が床を舐めてしまうとき、どのような気持ちのあらわれだと考えられますか? いぬのきもち獣医師相談室の獣医師(以下、獣医師): 「犬が床を舐める心理についてはいくつか考えられます。たとえば…… 床に食べ物のニオイがついていて気になって舐める 退屈していて退屈しのぎに舐める 不安なことがあって床を舐める 床を舐めていたら飼い主さんがかまってくれた経験から舐める(→飼い主さんの関心を引くため) このような理由があるかもしれません」 犬が床を舐めてしまうときの対策は? 犬はなぜ床を舐めるの？隠された理由と対処法を知ろう！. ーー衛生面を考えても、床を舐める行為はやめてほしいですよね。飼い主さんはどんな対策ができますか? 獣医師: 「床に食べ物のニオイがついていて舐めてしまうのであれば、 犬の健康に配慮したものでそこを掃除 しましょう。 また、愛犬が退屈していたり、不安になっているなどのストレスがある可能性があるならば、舐める行動が見られやすい時間帯の前に じゅうぶん遊んであげる時間をつくって あげてみてください」 ーーもしそれらの対策をしても改善が見られないようだったら、獣医師さんに相談してみるなどするのがよさそうですね。 犬が床を舐めてしまうのには、いろんな理由が考えられるようです。なぜ舐めてしまうのか、飼い主さんは気持ちを見極めて対応してあげたいですね。 (監修:いぬのきもち・ねこのきもち獣医師相談室 担当獣医師) ※写真は「いぬ・ねこのきもちアプリ」で投稿されたものです。 ※記事と写真に関連性はありませんので予めご了承ください。 取材・文/sorami CATEGORY 犬と暮らす 解説 雑学・豆知識 行動 いぬのきもち相談室 生態・行動 関連するキーワード一覧 人気テーマ あわせて読みたい! 「犬と暮らす」の新着記事
わんこが床で寝ていると、時々、「冷たくて硬い床の上に寝ていて、身体が痛くならないのだろうか?」「座布団や敷物をしいてあげたほうがいいかな?」と心配してしまう飼い主さんもいますが、基本的には心配はいりません。ここまででご紹介してきたように、わんこはそこを快適だと思って寝ているか、もしくは、家族と自分の身の安全を守るためにあえてそこに寝ているのです。座布団や敷物をしいてあげても、また違う床の上に移動してしまうでしょう。 病気のわんこや高齢のわんこ等、自分では体温調節や移動そのものが難しいわんこの場合には配慮が必要ですが、そうでない健康なわんこならば、暖かい場所や冷たい場所、いろいろな温度の場所があって選べたほうがかえって都合が良いのです。 まとめ いかがでしたでしょうか?このように、わんこは気まぐれに寝る場所を選んでいるように見えて、意外と深い理由があるのです。わんこが寝ているのを見たら、「どうしてそこで寝ているのだろう?」と考えてみるのも面白いかもしれませんね。
?犬はじっと耐えているかも ▶「明るいコだと無理していることも」犬の気持ちが弱っているときのサイン ▶愛犬の不調は「ストレス」が原因のことも? ストレスが引き起こす犬の病気とは ▶【動画】イタズラを怒られた大型犬、「納得いっていない」風な表情を見せる(笑) ▶【動画】気になる場所を横取りしたい!柴犬が見せた「無言の圧」に同居犬がスゴスゴ退散
犬が床をなめる理由7:飼い主の動作をまねている 飼い主さんが食事中に、床をなめる行動が始まった場合がありますか?これは飼い主さんのまねをしていると考えられます。 飼い主さんの行動を見て、「何かしているんだ!一緒にやってみよう!」などと思い、まねして遊んでいる、または、逆にほっとかれていると思ってストレスを感じ、ストレス解消のため床をなめるという行動をしているのでしょう。 どんな時に床をなめているかよく観察してみましょう。 犬が床をなめる際の対策法5つ ※画像はイメージです 犬が床をなめる理由がわかりましたね。愛犬がどれに当てはまっているか、よく観察し確認しましょう。そして原因がわかったら、次は対策をとりましょう。 今回は犬が床をなめる際の対策法の5つ、様子を観察する、床を清潔にしておく、遊んであげる、散歩を長めにしてあげる、おやつを与えてみる、を詳しくご紹介していきます!! 犬が床をなめる際の対策法1:様子を観察する 正しく観察するができればぴったりと合った対策をとることができ、床をなめるという行動をやめさせることができます。 人間と同じように犬の行動にも必ず原因や目的があります。頭ごなしに叱るのではなく、まずは愛犬の様子を観察することによって、愛犬が床をなめる理由を知る必要があります。そして初めて対策をとることができるのです。 犬が床をなめる際の対策法2:床を清潔にしておく 普段からしっかり掃除していても犬の嗅覚にはかなわないので、たとえ小さくても食べ物が落ちていたり、以前に何かこぼしたりした場所には匂いが残っていることがあるので、床を綺麗に掃除しておく必要があります。 洗剤は口に入れると危険なので、愛犬が口にしても安全な物を使ってお掃除しましょう。匂いがとれるように、消臭効果のある物で対策すると良いです。 その対策をとっても、特定の場所を繰り返しなめているようなら、その場所に何か置いて物理的になめられなくするということも対策としてできるでしょう。 犬が床をなめる際の対策法3:遊んであげる 遊んであげることによって、愛犬は退屈せずにすみ、床をなめるという行動をやめることができ、また愛犬とのコミュニケーションにもなり絆を強めることもできます。 良いことしかありません! 愛犬が退屈していて床をなめている場合、愛犬にとって他に楽しいことがあれば、愛犬は床をなめることが楽しくなくなり、床をなめることをやめるでしょう。退屈しているのであれば、一緒に遊んであげることができます。 しかし気をつけたいことが1つだけあります。遊び始めるタイミングです。 床をなめ始める時に遊び始めてしまうと、犬にとっては、床をなめたことを褒められたと思ってしまい、その行動がエスカレートしてしまいます。遊び始めるタイミングは愛犬が床をなめていない時にしましょう。 犬が床をなめる際の対策法4:散歩を長めにしてあげる 犬にとって運動不足はストレスだとお伝えしましたね。そのストレス発散のために床をなめているということが分かったなら、ぜひ毎日のお散歩を長めにしてあげて下さい。 散歩を長めにすることによって運動不足からくるストレスを解消させてあげることによって、床をなめるという行動をやめてもらうのです。 愛犬の健康のためにも運動をすることは良いことです。一緒に飼い主さんの健康維持にも一役買ってくれるかもしれませんね!
Activate (0, 1). Activate Filename:=strPath & strFileName, _ strFileName = Dir() Loop 注意点 セルのサイズの縦横比と画像の縦横比が合っていないと画像の縦横比が変わってしまい、画像が崩れてしまうので注意してください。 まとめ 画像ファイルの画像をExcelにシートに挿入する基本的なサンプルプログラムとそれを応用して複数の画像ファイルの画像をセルのサイズに合わせてタイル状に貼り付けていくサンプルプログラムを記載しました。 参考になれば幸いです。 (Visited 11, 165 times, 1, 592 visits today)
2020年5月18日 ●はじめに 社内でマニュアル作成や工事写真などEXCELシートに写真を挿入する事があると思いますが、ここでは、その写真(画像)をエクセルシートにVBAプログラムを利用して挿入する方法を説明いたします。特に写真を複数挿入する場合などは、手動で挿入するよりも、VBAプログラムを利用して写真(画像)を挿入する方が、簡単に挿入する事が出来ます。それでは、サンプルプログラムを交えて順番に説明いたします。 ●書式の説明 【 メソッド 】 ● ワークシートオブジェクト. (画像ファイルのフルパス) ●『使用例①』 (FileName) FileName = 画像ファイルのフルパスを指定 ※詳しくは、サンプルプログラム①を参照 ●『使用例②』 With Sheets(ワークシート名).
ITと何が違うの? |エクセル雑感 (2021-06-24) エクセルVBA 段級位 目安|エクセル雑感 (2021-06-21) ローカル版エクセルが「Office Scripts」に変わる日|エクセル雑感 (2021-06-10) 新関数SORTBYをVBAで利用するラップ関数を作成|VBA技術解説 (2021-06-12) VBA今日のひとこと/VBA今日の教訓 on Twitter|エクセル雑感 (2021-06-10) VBAの演算子まとめ(演算子の優先順位)|VBA技術解説 (2021-06-09) 画像が行列削除についてこない場合の対処|VBA技術解説 (2021-06-04) アクセスランキング ・・・ ランキング一覧を見る 1. 最終行の取得(End, )|VBA入門 2. Excelショートカットキー一覧|Excelリファレンス 3. 変数宣言のDimとデータ型|VBA入門 4. RangeとCellsの使い方|VBA入門 5. 繰り返し処理(For Next)|VBA入門 6. マクロって何?VBAって何?|VBA入門 7. Range以外の指定方法(Cells, Rows, Columns)|VBA入門 8. 写真の取込方法について（Pictures.Insert,Shapes.AddPicture）｜VBAサンプル集. セルのコピー&値の貼り付け(PasteSpecial)|VBA入門 9. セルに文字を入れるとは(Range, Value)|VBA入門 10. とにかく書いてみよう(Sub, End Sub)|VBA入門 このサイトがお役に立ちましたら「シェア」「Bookmark」をお願いいたします。 記述には細心の注意をしたつもりですが、 間違いやご指摘がありましたら、 「お問い合わせ」 からお知らせいただけると幸いです。 掲載のVBAコードは動作を保証するものではなく、あくまでVBA学習のサンプルとして掲載しています。 掲載のVBAコードは自己責任でご使用ください。万一データ破損等の損害が発生しても責任は負いません。 エクセル全般 マクロVBA入門編 マクロVBA応用編 その他(Excel以外) サイト案内 本文下部へ おすすめ関連記事
Insert ( "C:\DATA\Photo0" & P & ""). Top = Range ( "B" & I). Left = Range ( "B" & I). Width > Range ( "B" & I). Width Then 'セルB列の幅と画像の幅を比較する. Width = Range ( "B" & I). Width '画像の幅がセルB列の幅より大きい場合は、セルB列の幅に写真を合せる。 End If If. Height > Range ( "B" & I). Height Then 'セルB列の高さと画像の高さを比較する. Height = Range ( "B" & I). Height '画像の高さがセルB列のより高さが大きい場合は、セルB列の高さに写真を合せる。 End If. Range ( "B" & I).
ScaleHeight 1, msoTrue. ScaleWidth 1, msoTrue End With End Sub ソースコードの解説 画像をExcelの指定の場所に貼り付ける 画像を貼り付ける位置を設定しているのは、dPictureメソッドのLeftとTopパラメーターです。 名前 データ型 説明 Left Single 文書の左上隅を基準にして図の左上隅の位置をポイント単位で指定します。 Top Single 文書の左上隅を基準にして図の左上隅の位置をポイント単位で指定します。 上のソースコードでは、LeftとTopパラメーターをB2セルのLeftとTopに設定しているので、ExcelのB2セルに合わせて画像が貼り付けられます。 そのため、画像を貼り付ける場所を変更したい場合には、Set targetRange = Range("B2") のB2を変更してください。 参考 Shapes. EXCEL VBA エクセルシートに写真（画像）を挿入する・写真（画像）を表示・写真（画像）を削除（Picture）. AddPicture メソッド (Excel) Microsoft Docs 画像をそのままの大きさで貼り付ける ShapesオブジェクトのScaleWidthとScaleHeightメソッドを使用します。Factor = 1、RelativeToOriginalSize = msoTrueに設定することで、図をそのままの大きさで貼り付けられます。 名前 データ型 説明 Factor Single 現在の高さと変更後の高さの比率、または元の高さと変更後の高さの比率を指定します。 たとえば、四角形を 50% 拡大する場合は、この引数に 1. 5 を指定します。 RelativeToOriginalSize MsoTriState 元のサイズを基準にして図形を拡大または縮小する場合は msoTrue 。 現在のサイズを基準にして拡大または縮小する場合は msoFalse を指定します。 msoTrue を指定できるのは、図形が図または OLE オブジェクトのときだけです。 参考 ScaleWidth メソッド (Excel) Microsoft Docs マクロを実行する キーボードの【F5】を押す、または画面上部の【▶】を押して、マクロを実行します。 ExcelのB2セルの左上に合わせてに画像が表示されていれば完了です!
LockAspectRatio = msoTrue. ScaleWidth 1, msoTrue ' 画像の大きさを設定する With picture ' 指定範囲の左上に仮置きする = ' 指定範囲よりも画像の縦横両方が小さい場合 If < targetRangeWidth And < targetRangeHeight Then = + ( -) / 2 Else ' 画像の幅を指定範囲に仮設定する = targetRangeWidth ' If > targetRangeHeight Then = targetRangeHeight End If End Sub ごりごりと処理を書いているので、あまり説明できる部分はないのですが、このソースのポイントとしては、Shape. LockAspectRatioプロパティをTrueにしている箇所です。 Shape. LockAspectRatioとは、図の縦横比を一定にするプロパティで、これを設定することで、画像がゆがまないようになっています。 参考 Shape. LockAspectRatio プロパティ (Excel) Microsoft Docs マクロを実行する キーボードの【F5】を押す、または画面上部の【▶】を押して、マクロを実行します。 仕様の説明の①のように画像が貼り付けられれば成功です! なお罫線(黒い線)は、分かりやすいように筆者は手動で書きました。自動的に書かれないのでご注意ください。 ここまで完成したら、ソースコード内の範囲を指定する箇所を変更して、きちんと仕様通りに動くか確認してみるといいでしょう。 メモ 範囲をしていしているのは、ソースコード内の以下の部分になります。H22をF10にしたり、E20に変更すれば仕様の動きを確認できます。 Set targetRange = Range("B2:H22")