No.8ベストアンサー
- 回答日時:
取りあえず、下記のようなマクロで、最後に挿入した写真のサイズが変更されます。
マクロ実行前に、写真をクリックして選択する必要はありません。
Sub 写真サイズ変更2()
Dim pic As Object
Set pic = ActiveSheet.Pictures(ActiveSheet.Pictures.Count)
With pic.ShapeRange
.LockAspectRatio = msoTrue
.Height = 255#
.Width = 340.5
End With
End Sub
「写真の挿入マクロ」も、現在、手作業で行っている「写真の挿入」作業を「マクロの記録」してから組んでみてください。
No.7
- 回答日時:
>作ったマクロは「高さ9cmマクロ」だけなのです。
>写真挿入マクロはありません。
>
> (省略)
>
>で、図をクリックして
>「高さ9cmマクロ」ボタンを押すようにしてるのです。
では、「高さ9cmマクロ」を掲載してみてください。
対処法を検討してみます。
Sub 写真サイズ変更()
'
'
Selection.ShapeRange.LockAspectRatio = msoTrue
Selection.ShapeRange.Height = 255#
Selection.ShapeRange.Width = 340.5
End Sub
どうでしょうか。
No.6
- 回答日時:
一例ですが下記のようにして、「写真挿入マクロ」の中で「高さ9cmにするマクロ」を実行できます。
処理対象物の受け渡しをキチンと行うように気をつけなければなりません。
Sub 写真挿入マクロ()
'
'写真挿入処理
'
Call 高さ9cmにするマクロ
End Sub
Sub 高さ9cmにするマクロ()
'
'高さ9cmに処理
'
End Sub
すみません、説明が足りませんでした。
作ったマクロは「高さ9cmマクロ」だけなのです。
写真挿入マクロはありません。
今のやり方は、
普通に「図の挿入」で写真をはりつけたら
高さ26cmとかになりますよね。
で、図をクリックして
「高さ9cmマクロ」ボタンを押すようにしてるのです。
No.5
- 回答日時:
>できたのはマクロ発動用のボタンを作りました。
>次に貼り付けた図を指定してから
>高さ9cmにするマクロ記録始めたのですが、
>これでは貼り付けてから毎回ボタン押して自動サイズ変更なので、
>一手間かかっちゃうのです。
>その一手間を省きたいのですが…
「マクロ発動用のボタン」で、「写真挿入マクロ」が起動するのですか?
「高さ9cmにするマクロ」を「写真挿入マクロ」に組み込めば良いとおもいます。
あるいは、「写真挿入マクロ」から「高さ9cmにするマクロ」を実行するようにしても良いとおもいます。
返信ありがとうございます。
やりかたマズかったのかな(汗
えと、フォームでボタンをつくって、
そのボタンにマクロを登録したんです。
記録したマクロは、
図を指定して、記録開始。
1、図の書式設定クリック
2、サイズ→高さ9cm
記録終了。
写真はいろんなフォルダから引っ張るので、
エクセルのセルに写真を貼り付けた瞬間に
自動で「高さ調整マクロ」が起動するような方法が知りたいのです。
マクロでいけますか?
No.4
- 回答日時:
>できればコードも教えていただきたいのですが(ボソ
ANo.3で提案した「マクロの記録」で参考コードを取って、それを掲載してみてください。
参考コードを載せたかったのですが、
手順で行き詰っちゃいました(ToT)
貼り付けた「図」のサイズの高さを自動的に9cmにするには
どういう手順でマクロ記録したらいいのでしょうか?
できたのはマクロ発動用のボタンを作りました。
次に貼り付けた図を指定してから
高さ9cmにするマクロ記録始めたのですが、
これでは貼り付けてから毎回ボタン押して自動サイズ変更なので、
一手間かかっちゃうのです。
その一手間を省きたいのですが…
手順のヒントを教えていただけませんか?
No.3
- 回答日時:
Excelで、自力でやるなら
≪1≫Imageコントロール
コントロールツールボックスにあるImageコントロールを使えばどうでしょうか。
コントロールのサイズに応じて画像サイズの自動調整ができます。
難点は、ファイルサイズが大きくなることと、手間がかかることです。
(1)ツールバー[コントロールツールボックス]を表示
(2)、[イメージ]コントロールをシートに配置
配置直後は[デザインモード]になります。
(3)[イメージ]コントロールを右クリック
(4)メニューから[プロパティ]をクリック
プロパティダイアログボックスが表示されます。
(5)(オブジェクト名)の[PictureSizeMode]をクリックし、
右側の▼をクリック、[3-fmPictureSizeModeZoom]に設定
(6)(オブジェクト名)の[Picture]をクリックし、右側の[...]をクリック
「ピクチャーの読み込み」ダイアログボックスが表示されます。
ダイアログボックスで、写真ファイルをクリックすれば写真が挿入されます。
作業後[デザインモード]の解除を忘れないでください。
≪2≫マクロ
上記の方法もマクロを組めば簡単になりますが、ファイルサイズが大きくなるのが難点です。
[図の挿入]ならファイルサイズが大きくならずにすみます。
図の挿入とサイズ調整作業を「マクロの記録」すればどうでしょうか。参考になるコードが得られます。
得られたコードを加工編集して汎用性のあるコードにすれば良いとおもいます。
興味があれば取り組んでみてください。
おお!すごい!
ただ、おっしゃるとおり手間がかかりますね…
でもやりたいのはこういう事です。
マクロですか、マクロは根本的にわかってなくて
いままでコードもコピペばっかり。
参考書読んでも理解できませんでした(泣
できればコードも教えていただきたいのですが(ボソ
No.2
- 回答日時:
縮小専用ってソフトがあります
http://www.vector.co.jp/soft/dl/win95/art/se1536 …
これでいったん全部480x320とかにサイズ統一したあと貼り付ければいいと思います。
あとは工事写真専用ソフトを使うかですね
http://www.vector.co.jp/soft/win95/business/se39 …
No.1
- 回答日時:
簡単な方法では、
写真の角にカーソルを当てると両矢印が出ます。それを斜めに下げれば縮小されます。反対にやれば拡大します。
自動的にやる方法は知りませんが、いっぺんに縮小拡大する方法はあります。
エクセルで無ければ、市販ソフトがあります。工事写真用の。
個人でなく会社なら買ってもらえばいいのでは、そんなに高くありません。
早い回答ありがとうございます。
市販ソフトですよね。
何個か持っているんですが、使い難くて…
写真ソフトのように
セルの大きさ決めていて
そこに写真データ貼るとセルに合わせて
写真が小さくなってくれる方法なんてのが理想です。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- その他(Microsoft Office) 早めの回答よろしくお願いいたします。 福祉施設で広報作成を担当することになりました。 エクセルに写真 2 2022/05/30 20:02
- Visual Basic(VBA) 【VBA】写真の縦横比を変えずに貼り付ける 5 2023/06/13 11:42
- Excel(エクセル) エクセルからビジオのリンク貼り付け 1 2023/03/30 17:51
- Excel(エクセル) VBA セルの値と同じ名前のシートにデータを貼り付けするやり方を教えてください 2 2022/05/17 16:26
- Excel(エクセル) エクセルデータの集計、一つのセルに複数のデータがある場合 7 2022/12/28 20:19
- Excel(エクセル) 【VBA】指定フォルダに格納中のテキストファイルをエクセルで処理し結果のエクセルを新規フォルダに保存 1 2022/03/25 14:19
- Visual Basic(VBA) VBAで自動集計(特定セルコピー月ごとに値貼り付け)したい。 6 2023/06/25 11:37
- Access(アクセス) Accessのクエリの結果を、既存のエクセルに追加したい 2 2022/07/31 22:44
- Excel(エクセル) マクロ作成初心者です。CSVファイルの日付データについて 3 2022/12/14 06:02
- Excel(エクセル) エクセルに写真の貼り付けができません。 4 2023/01/26 22:56
関連するカテゴリからQ&Aを探す
おすすめ情報
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
ローマ字→カタカナへ変換(エク...
-
Excelを開いた時に表示さ...
-
複数ファイルにある特定のシー...
-
マクロ 実行ボタンを押さずに...
-
EXCELのセルへ、デジタル時計を...
-
エラーになってないのにVBA...
-
ワードからエクセルへ貼り付け...
-
Wordで「原稿用紙○枚」を換算す...
-
エクセルのマクロ機能で前のシ...
-
エクセルで複数のシートをまと...
-
ワードで画像を自動で挿入する方法
-
Excel VBA のdebug(F8キー) が...
-
マクロ ブックをマクロなしでコ...
-
TeraTermのマクロについて
-
EXCEL 複数のシートの同一の位...
-
Excel2000 データの並べ替えで...
-
Excelのワークシート上に検索窓...
-
エクセル グラフの軸の最小値最...
-
Excelマクロでオプションボタン...
-
Excelの改ページ 同シート内で...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
ローマ字→カタカナへ変換(エク...
-
EXCELのセルへ、デジタル時計を...
-
複数ファイルにある特定のシー...
-
マクロ 実行ボタンを押さずに...
-
エラーになってないのにVBA...
-
Excelを開いた時に表示さ...
-
Excel VBA のdebug(F8キー) が...
-
エクセルで複数のシートをまと...
-
ワードからエクセルへ貼り付け...
-
Excelの改ページ 同シート内で...
-
Excelのワークシート上に検索窓...
-
エクセルのマクロ機能で前のシ...
-
TeraTermのマクロについて
-
エクセル グラフの軸の最小値最...
-
Wordの画面を左右にスクロール...
-
マクロ ブックをマクロなしでコ...
-
モジュール内のマクロを全て実...
-
開いているフォルダを全て閉じ...
-
AccessのテーブルデータをExcel...
-
マクロ実行後元に戻すことは
おすすめ情報