- 締切済み
画像を結合セルの大きさで貼付（以前に回答されたマクロについて）
以前、下記ページで回答（公開）されていたマクロについてなのですが、 私に一番あっているので使わせて頂きたいと思っています。 http://oshiete.homes.jp/qa2300268.html その中で、貼付画像サイズが「縦横比維持」に設定されています。 画像を選択した結合セルの大きさで貼付るには、どこを、どのように修正すればいいのでしょうか？ 宜しくお願い致します。m(_ _)m
- zorori_001
- お礼率100% (1/1)
- オフィス系ソフト
- 回答数1
- ありがとう数1
- みんなの回答 （1）
- 専門家の回答
みんなの回答
- onlyrom
- ベストアンサー率59% (228/384)
さすがKenKen_SPさん、可読性が高いし、ビューティフルですねぇ。 KenKen_SPさんが回答すのが一番いいのでしょうが、ちょこっと繋ぎということで。 アクティブセル（結合、未結合関係なく）に貼り付けたいのですよね。 （１）以下のコードを削除 '------------------------------------ ＞ ' 貼り付け開始セルを選択 ＞ Range("C5").Select '------------------------------------ （２）以下のコードを丸ごと入れ替え '---------------------------------------- With PIC.ShapeRange .LockAspectRatio = False '● 縦横比維持しない .Height = ActiveCell.MergeArea.Height .Width = ActiveCell.MergeArea.Width '●幅も設定 End With '---------------------------------------------------- 以上。
関連するQ&A
- 「エクセルのシートに決まったサイズの画像を貼り付けたい」
「エクセルのシートに決まったサイズの画像を貼り付けたい」 http://okwave.jp/qa/q1182506.html こちらの質問を見つけ試してみたのですが、うまくいきませんでした。 縦横比を固定にせず、8.76cm×12.01cmという決まったサイズで画像を貼り付けたいです。 また、この方法だと先にセルの大きさを調整するようなのですが、セルの大きさの設定はこのように細かいサイズでできるのでしょうか？ マクロというものをいじったことがないので、ほとほと困っております。 助言をお願いいたします。
- 締切済み
- オフィス系ソフト
- マクロの画像サイズについてお聞きしたいのです。
マクロの画像サイズについてお聞きしたいのです。 マクロの記録で画像を縦横比を固定するで高さを4.23cmに設定したら、 横が5.64cmになり、下のようなのマクロの値になりました。 そこで質問なのですが、画像の1辺(高さ)を4.23cm(約120pt)に定めると もう一辺が縦横比の固定で自動的に定まるマクロは作れますか？ 表に入る大きさが高さが基準で、いろんなサイズでテストしてみた結果、 サイズ違いの画像ができてしまう時があります。 識者の方、よろしくお願いします。 【↓今作成中マクロの一部】 With Selection.ShapeRange .LockAspectRatio = msoTrue .Height = 120# .Width = 159.75 .Rotation = 0# Selection.Cut ActiveSheet.PasteSpecial Format:="図 (JPEG)", Link:=False, DisplayAsIcon:= _ False Range("A5").Select End With
- ベストアンサー
- その他MS Office製品
- エクセルの結合セルの交換について
初めて質問します。 エクセルで結合セルの文字データを複数同時に入れ替える方法を知っている方がいましたらお教えください。 過去に似たような質問があったのですが単独セル同士の入れ替えのみに対応しており結合セル同士の入れ替えや、複数のセルを同時に入れ替えることができませんでした。 「エクセルのデータ入れ替え ？」 http://okwave.jp/qa/q74186.html マクロも簡単なことしか知識になく、モジュールのプログラムをいじってもうまくいかずに困っています。 皆さんよろしくお願い致します
- ベストアンサー
- その他MS Office製品
- エクセル) 複数の画像を同時に挿入するマクロについて
仕事上、エクセルに画像を挿入することが多く、場合によって200枚の画像を挿入することがあります。 なんとかならないかとWebで調べたら下記のサイトに行き着きました。 http://pc.nikkeibp.co.jp/article/NPC/20071101/286186/?P=1 このマクロを半信半疑に実行したら、見事に"picuture"というシートにズラーーーっと画像がいっきに挿入されました。 スゴイ！！まさに神みたいなマクロでした。 ただ、数箇所「うーーん・・。」という点があります。 1)■■挿入した各画像の大きさの『縦x横 比』■■ 挿入した全ての画像の"横"の大きさは「セル２個分」にフィットしています。 これはいいの全然いいです。バッチリです。 問題はそれに対する縦です。縦横比を保持しないで縦の大きさが６セル分に無理矢理フィットします。 つまり強引に横2セルx縦6セルの画像になってしまいます。 縦横比を保持できないでしょうか？ ちうなみに貼り付ける画像は全て正方形よりやや横長です。。 2)■■挿入した画像がハイパーリンクになってる。■■ 挿入した画像の位置を微妙に変えようと、白い十字キーのポインターを画像の上に持っていくと、IEでリンク先をクリックするときに出てくる「白い手袋をした人差し指を立てたポインター」に変わります。 これだと画像が選択できません。 以上この２点どなたかマクロに詳しい方がいらっしゃいましたら解決していただけますでしょうか？ 回答下さった方には心底お礼したいです！！お願い致します。 お願いします！
- ベストアンサー
- オフィス系ソフト
- OpenOffice表計算のマクロ（Basic)で選択中の結合セルからサイズを取得する方法について教えてください
事情によりOpenOfficeの表計算ソフト上で簡単なマクロを作らなければならなくなったのですが、私は満足なプログラミングの知識をもっていず、また身近に頼れる詳しい人もいずに困り果ててしまいました。 マクロの内容は選択中の結合されたセルのサイズ（幅と高さ）にあわせて、はみ出さない範囲で拡大した画像を挿入するというものです。 ネットで検索するなどして調べたOOoBasicマクロの情報を元につぎはぎして、理解できないなりになんとか選択範囲のサイズを取得してあわせて拡大／縮小する所まではいきました。しかし、結合されたセルを選択している場合には、結合されたセルの中の一番左上の単一セルのサイズを取得してしまい、結合されたセル全体のサイズがどうしても取得できないという問題が残ってしまいました。 詳しく書くと、 Dim oSelection As Object oSelection = ThisComponent.CurrentSelection Dim w_len As Long Dim h_len As Long w_len = oSelection.size.Width h_len = oSelection.size.Height としたいうようになっていて、A1からC3まで結合されたセルを選択してマクロを実行するとA1の単一セルのサイズがw_lenとh_lenに入ってしまいます。 MicrosfOfficeに比べてOOoは情報が少なく、またあったとしても分かっている人向けに書いてあることが多く、関係がありそうなものを探しては闇雲にテストしてエラーを返され続けることに疲れました。 なにか良い方法があれば教えてください。よろしくお願いいたします。
- ベストアンサー
- オフィス系ソフト
- セル結合されていないのに結合のメッセージが出る
エクセル２０１０を使っております。 ある表を五十音順に並び替えようと思っているのですが、「この操作には、 同じサイズのセル結合が必要です。」とのメッセージが出てしまいます。 しかし、結合セルをhttp://office.microsoft.com/ja-jp/excel-help/HP010342686.aspx#BMfindmergedcells に記載されたとおりに検索しても見つかりません。 （並び替えようとしている範囲内を目で探しても結合セルは見つかりません） どうすれば、並び替えができるようになるのでしょうか？ よろしくお願いします。
- ベストアンサー
- Excel（エクセル）
- OpenOffice.orgで画像縮小のマクロ
OpenOffice.orgで画像の貼付をしています。 画像のサイズ 高さをすべて40mm (縦横サイズ比率固定)に1つずつ 変更していますが個数が多いので、まったく素人ですがマクロ処理 できないものかと1日中ネットで調べてみましたが、基本が分からない上に、 OpenOffice.orgの情報が少なく、急ぎの作業で困っております。 申し訳ございませんが分かる方よろしくお願いいたします。
- ベストアンサー
- オフィス系ソフト
- エクセルの「数式が入った結合セル」を範囲指定して、値だけ貼り付ける方法。
よろしくお願いします。 F列とG列のセルを結合させたセルが立てに10個あります。 10個のセルには、同じ行の「C列のセル／D列のセル」の数式が入っています。 収入割合が％表示で判るようになっています。 別のブックシートにこの10個のセルの値を転記したいと思い、範囲指定して「貼付」または「形式を選択して貼付（値）」しても、「この操作には同じサイズの結合セルが必要です。」となってしまいます。 貼付先は、別のシートのN列とO列を結合させて、貼付元と同じ幅のにした範囲指定した 10個のセルです。 なぜ、値の貼付が出来ないのでしょうか？ （win2000 Excel2000）
- ベストアンサー
- オフィス系ソフト
- エクセルで複数セルの文字を一回で行ごとに結合したい
文字を消さずにセルを結合する方法は http://okwave.jp/qa2246502.html こちらの質問の回答を見てできるようになりました。 しかし、同じ結合作業を数行にわたってしたいと思い使ってみたら大きな１つのセルになってしまいました。 （例えばA1～A5とB1～B5を選択してマクロを使ったらA1にすべての内容が入っている状態） 行ごとの結合になるように1回でできる方法はありませんでしょうか。 量が多いので１行ずつ作業するのが大変だなぁと思ったので質問してみました。 よろしくお願いします。
- ベストアンサー
- オフィス系ソフト
- エクセルでデータをコピーした時にセルの結合2
前回の質問で解決したのですが、以下のようなセルがありました。 これはどうやってセルの結合をやるのですか。 ※横にセルの結合をしたいです。 また自動的にはどうやってやるのですか。 http://okwave.jp/qa/q6442050.html
- 締切済み
- オフィス系ソフト
お礼
onlyromさん、うまく動作しました。 ありがとうございます。 onlyromさん、KenKen_SPさん、 使い勝手の良い工事写真帳になりました。 感謝致します。m(_ _)m