前提・実現したいこと 1つのシート上に、30枚程の写真を指定セルに貼り付けていくツールを作成したいです。 フォルダ内にある写真を【ファイル名】で指示して【指定セル】に貼り付けたいです。 現在はセル位置を下記の記述で指定しています。 Sub 写真貼付() Worksheets( "写真") _ Filename:= "C:\Users\Desktop\フォルダ名\ファイル名", _ LinkToFile:=False, _ SaveWithDocument:=True, _ Left:= 0, _ Top:= 363, _ Width:= 437, Height:= 325 Top:= 726, _ '本来はこの後大量に続く。。。。 End Sub 30枚以上の写真を貼り付けていくので、いちいち座標を指示をするのではなく セル指定にして貼り付けていきたいです。 (つまり現在は30枚分手打ちで座標を記述している) 【理想の形】 Left:=0, _ Top:=363, _ の部分が RANGE("A1") と指定できる。 【補足】 ・写真サイズとセルサイズはぴったりなのでA1セルの左端、もしくは中央に貼り付けられたら最高です。 ・初心者でやっとここまでできたので大幅に変えずにできると幸いです。 (AddPictureを使用していたい) 初心者ですが、何卒宜しくお願い致します。
ワークシート上に画像を挿入するには、次のようにします。 Sub Macro1() "C:\Work\" End Sub 画像を、アクティブシートに挿入するときは、必ず アクティブセル に挿入されます。正確に言うと、アクティブセルの左上に画像の左上がくるように挿入されます。 次のように、シートを指定すれば、アクティブシートではない(表示されていない)シートに画像を挿入することもできます。 Sub Macro2() Sheets("Sheet1"). "C:\Work\" このように、挿入するシートがアクティブシートではなかった場合、画像は常にセルA1に挿入されます。そりゃそうですね。だって、アクティブシートではないシートに、アクティブセルはありませんから。 指定した位置に画像を挿入する 上述のように、挿入される画像は、基本的に「アクティブセルを左上」とした位置に挿入されます。もし、任意のセルに画像を挿入するのなら、まず挿入したい位置にアクティブセルを移動して・・・なんてことはしません。発想を変えます。挿入した画像を、指定した位置に移動すればいいんです。ちなみに、挿入した画像を、手動で移動する操作をマクロ記録すると、次のようなコードが記録されます。 Sub Macro3() (Array("Picture 1")) crementLeft 74. 25 crementTop 35. 写真の取込方法について（Pictures.Insert,Shapes.AddPicture）｜VBAサンプル集. 25 ほとんどの人は、このコードを見て絶句するでしょう。「なんじゃ、これは・・・」って。1行目からツッコミどころ満載です。しかも、移動に関するコードには、74. 25とか訳の分からない数値が出てくるし。よしんば、このコードを理解したところで、これを応用して"指定したセルに画像を移動する"なんてのは、相当に難しいです。 簡単です。画像を表すPictureオブジェクトには、その左位置を表すLeftプロパティと、上位置を表すTopプロパティが用意されています。それを指定すればいいんです。次のコードは、すでに挿入されている画像を、セルB3の位置に移動します。 Sub Macro4() ("Picture 1") = Range("B3") もし、挿入している画像が1枚しかないのでしたら、次のようにインデックスで指定した方が簡単です。 Sub Macro5() (1) = Range("B3") なんか、同じようなコードが2行並んで美しくないですから、Withでくくりましょうか。 Sub Macro6() With (1) = Range("B3") End With 挿入すると同時に、指定した位置に移動するのでしたら、次のようにします。 Sub Macro7() With ("C:\Work\") Insertの後ろに括弧を付けました。意味が分からない人は「 括弧はどんなときに使うの?
Activate (0, 1). Activate Filename:=strPath & strFileName, _ strFileName = Dir() Loop 注意点 セルのサイズの縦横比と画像の縦横比が合っていないと画像の縦横比が変わってしまい、画像が崩れてしまうので注意してください。 まとめ 画像ファイルの画像をExcelにシートに挿入する基本的なサンプルプログラムとそれを応用して複数の画像ファイルの画像をセルのサイズに合わせてタイル状に貼り付けていくサンプルプログラムを記載しました。 参考になれば幸いです。 (Visited 11, 165 times, 1, 592 visits today)
LockAspectRatio = msoFalse もちろん上記のコードは、アクティブシート上に画像が1つしか挿入されていないという前提です。もし、複数の画像がすでに挿入されていて、そこに新しい画像を挿入するのでしたら、次のように工夫しなければなりませんね。 Sub Macro14() With (). LockAspectRatio = msoFalse あるいは、名前で特定するのでしたら、次のような感じでしょうか。 Sub Macro15() 幸いなことに、挿入したPictureオブジェクトの名前(Nameプロパティ)と、指定するShapeオブジェクトの名前(Nameプロパティ)は、同じ文字列が設定されますので、その名前を流用しています。 ちなみに、今回写真でご登場いただいたのは、私の行きつけの店「地酒遊楽 裏や」の店長です。いつも、お世話になっています。裏やは、あの野崎酒店の系列で、全国の美酒を常時160種類取り揃えた地酒専門居酒屋です。旬のお料理と絶品の日本酒をご用意して、皆様のご来店を心よりお待ちしております。池袋東口から徒歩5分。お近くにお越しの際には、ぜひお気軽にお立ち寄りください。
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).
女性がデートをお断りしたにも関わらず、高頻度でデートのお誘いを繰り返したり、遠回しに「早くデートがしたいです」とアピっているような言葉を放ってしまうと、非常に飢えているようで怖いし、プレッシャーを与えられているようでしんどいです! 「断られたの気にしてないよ〜!いつか会えたらいいね〜」くらいの余裕を感じる男性のほうが、「なんか会ってみたいかも…」と感じるのが乙女心 なのです。 うまいことデートのお誘いに「YES!」をもらえたら、大抵の場合は「じゃあ、いつにしましょうか」という話になります。 お互いに都合のいい日に設定することは大前提ですが、 漠然と「いつにしましょうか」だけで話を進めていくと、お互いに気を使っているせいで「私はいつでもいいです!」「僕もいつでもいいです!」「どうしましょうか!」みたいに無限ループに 陥ります。 「お互い土日休みですし、金曜日の夜か、土日はどうですか?」「僕は○日〜○日だったらいつでも大丈夫なのですが、どこか空いている日はありますか?」と、 ある程度の目安を提示したほうがスムーズ に日程を決められます。 デート日程は、 あまりにも遠い日付で設定してしまうと、デートまでの期間にお互いのテンションが下がってしまったり、相手の女性が別の男性に心惹かれてしまう恐れも。 遅くとも、 デートに誘った日から2週間以内の日付に設定 するようにしてくださいね。 デートの日程を決めたら「じゃあ、また近くなったら連絡します!」と言いたくなるところですが、それはNG! そんなことをしてしまうと、相手の女性は「ヤリモクかもしれないから危険かも」と不安になってしまったり、デートまでの期間にあなたへの興味が薄れてしまったり、テンションが下がったことによってデートが面倒になってしまったりします。 せっかくこぎつけたデートをドタキャンされないように、 今までと同じようなテンション&頻度でメッセージのやりとりを続けることが大切 です。 また、デートが近くなって来たら「今週楽しみです!」と、 デートを楽しみにしていることをアピール してください。 なんとなく恥ずかしさを感じるかもしれませんが、デート楽しみですアピールをすることによって、相手の女性は多少デートが面倒に思えて来ても、「楽しみにしてくれているのに、ドタキャンするのは申し訳ないな……」とドタキャンを思い留まるようになりますよ!
デートの誘いにOKをもらえたら、ついつい「俺にも彼女ができるかもしれないな〜!」と浮かれてしまうものですが、実際にデートをするときにはいくつか注意点があります。 マッチングアプリで出会った女性とのデートは、内容や時間がとっても重要。 特に、 初回のデートはランチor軽めのディナーで、2〜3時間程度の短い時間にする ことを心がけてください。 物足りなく感じるかもしれませんが、あまりに長時間の設定にすると相性がイマイチだったときに地獄を見ることになりますし、相性がよかったとしても、少し物足りないくらいのほうが次につながりやすいです。 2回目のデートは初回のデートがどのくらい盛り上がったかによって内容や時間を変える のがおすすめ。 初回のデートがすごく盛り上がったのであれば、昼間から映画や水族館といった定番のデートを。緊張などであまり盛り上がれなかった場合には、初回と同様の内容&時間帯でお互いの緊張をほぐすことに専念してください! 1回目のデートを終えて、「また会ってみたいな」と思ったのなら、解散後即行動! デートから時間が経つと相手の女性のなかであなたの存在感が薄れてしまいますし、会った直後に行動を起こすことによって、それだけデートの時間が楽しかったと暗にアピールすることが可能。 解散してすぐ、デートのお礼を述べる文章に「よかったらまた会ってください」の一言を添えて、メッセージを送信 してください! マッチングアプリで出会った女性と 付き合いたいと感じたら、告白は3回目のデートでするように! 1回会って良さげだったら「お付き合いしたいです」とメッセージを送りつけてしまう男性も多いのですが、女性からすると、気持ちはありがたいものの、もう少し相手のことを知ってから判断したいと感じてしまいます。 しかし、4回も5回も会っているのに告白されないと「なんで告白してこないんだろう…いいお友達みたいな感じなのかな…」と不安に感じるのも女性の心理。乙女心は難しいのです。 3回目のデートの終盤あたりで、付き合うかどうかの最終ジャッジを下し、付き合いたければ相手の女性に告白 をするようにしてくださいね! 付き合う気がまったく沸かなければ、デートの翌日に「色々考えたのですが、○○さんとはお友達でいるのが一番いいように感じました」とキッパリ伝えるのが誠実です。 マッチングアプリで出会った場合、 デートの誘い方は今後の関係性を左右する重大な要素。 女心は複雑ですし、男性からするとベストに思える行動が、女性からするとNGな行動に感じられてしまうケースもあるため、マッチングアプリで出会った女性をデートに誘う際には、誘い方やタイミングなどの細かい部分にも気をつける必要があります。 せっかく相性のいい女性に出会えたのに、デートへの誘い方を間違えてしまったがために縁が切れてしまった……なんて悲しいことが起こらないよう、今回ご紹介したポイントをしっかりと押さえるようにしてくださいね!