お世話になります。
工事写真を("工事写真台紙")シートに挿入するVBAを組みました。
アクティブセルの Left Top と写真の Left Top を合わせて
所定の位置に貼り付ける事が出来ています。
ところが1つ問題が出てきました。
デジカメを横(右90度)にして撮影した写真(縦長の写真)を貼り付ける必要が出てきたので
VBAで貼り付ける際、Rotation = 90# で回転させましたが
アクティブセルの Left Top と写真の Left Top を合わせても
セルと写真の左上は合いません。
写真を回転させても、位置情報としての写真の Left Top は変らないみたいです。
見た目の左上を合わす事が出来ません。
座標を取得すれば・・?sin.cos.tan・・?
セルの width と 写真の width・・?
Increment で移動して・・?
煮詰まってどうにもなりません。
どなたかご教授下さい。
No.2ベストアンサー
- 回答日時:
考え方: 正方形なら90度回転させても、各頂点の位置は同じ位置です。
座表計算は不要です。
Sub Sample()
Dim sngBackup As Single
Application.Dialogs(xlDialogInsertPicture).Show
With Selection.ShapeRange
'位置決め
.Top = ActiveCell.Top
.Left = ActiveCell.Left
'横サイズを変数に保持
sngBackup = .Width
'アスペクト比を保たないに変更
.LockAspectRatio = msoFalse
'正方形にしてしまう-->90度回転しても頂点は同じ位置にある
.Width = .Height
'90度回転
.Rotation = 90#
'元のサイズに戻す
.Width = sngBackup
'アスペクト比を保つに戻す
.LockAspectRatio = msoTrue
End With
End Sub
# マクロ(VBA)のご質問で、既存コードがある場合はコードを提示した方が
# 良いと思います。殊にプログラムについては、それが質問者と回答者の間で
# 一番誤解が無く情報が伝わり、質問者にとっては素早い回答が期待できるし、
# 回答者にとっても既存コードのコピペで動作チェックできて楽だからです。
この回答への補足
補足をお礼の後に書きますが、左回転の件も解決しました。
下記コード追記しました。
.Top = .Top + (BackupW - .Height)
KenKen Sp さんのコードが参考になりました。
有難うございました。
KenKen SPさん ご回答有難うございます。
>正方形にしてしまう
なるほど!の発想です。
考えが及びませんでした。
Sub ボタンクリック()
Dim BackupW As Single
If TypeName(Selection) = "Picture" Then
With Selection.ShapeRange
BackupW = .Width
.LockAspectRatio = msoFalse
.Width = .Height
.Rotation = 90#
.Width = BackupW
.LockAspectRatio = msoTrue
End With
Else
MsgBox "回転させる写真を選択して下さい。", vbOKOnly, "[ 右90度回転 ]"
End If
End Sub
ご回答のコードで右回転解決しました。有難うございました。
欲を言って、左回転の場合は( .Rotation = -90# )
写真の(見た目の)左上位置とセルTop が合わなくなりますが
どこに注目してコード追記すれば良いでしょうか?
やはり写真のTop座標を求めて、セルTop に合わせるのか・・
別の質問みたいですみません。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Visual Basic(VBA) 【VBA】写真の縦横比を変えずに貼り付ける 5 2023/06/13 11:42
- Visual Basic(VBA) 【VBA】写真の貼り付けコードがうまく機能しません。 5 2022/09/01 18:43
- Excel(エクセル) Excel2019 マクロを使用し画像を貼り付けした際のリンク切れについて 2 2022/11/15 16:14
- PowerPoint(パワーポイント) ExcelのVBAコードについて教えてください。 3 2022/05/25 14:32
- Visual Basic(VBA) QRコード作成マクロについて 3 2022/11/26 16:55
- その他(Microsoft Office) エクセルのマクロでスライサー教えてください。 1 2022/09/28 16:40
- Excel(エクセル) エクセルで同じ数字同士を自動で線で結ぶVBAを教えてください 6 2022/04/26 23:13
- Excel(エクセル) Excel VBAについてです。 少しだけ知識はあるのですが、 うまくいかなかったので 質問させてい 3 2022/09/13 18:40
- その他(暮らし・生活・行事) 契約更新の為に、履歴書を書いて、履歴書用に社員の方がデジカメで写真を撮ってくれました。 撮ってくれた 1 2023/01/31 15:59
- 国産車 ホンダ フィット ハイブリッド GP5の内装について 車両の左側にある三角形の小窓の右隣にある縦長の 4 2022/09/06 17:49
このQ&Aを見た人はこんなQ&Aも見ています
-
「環境が人を育てる」って本当?環境によって人格や生き方は本当に変わるのか
環境が人生に与える影響は実際どれほどのものなのか、専門家の田宮由美さんに伺った。
-
エクセルVBAで縦向きの画像の挿入・回転
Excel(エクセル)
-
VBAのユーザーフォームのイメージコントロールに読み込んだ画像を左に90°回転させたい
Visual Basic(VBA)
-
イメージコントロールに 読み込んだ Picture を 90度 回転したい
Visual Basic(VBA)
-
-
4
【VBA】写真の縦横比を変えずに貼り付ける
Visual Basic(VBA)
-
5
EXCEL2007で、回転された図を任意の場所に設定できない
Visual Basic(VBA)
-
6
マクロを実行すると画像がズレてしまいます
その他(Microsoft Office)
-
7
VBAエクセルに貼り付けた画像をセルにあった大きさにしたい(等倍)
Excel(エクセル)
-
8
【VBA】写真の貼り付けコードがうまく機能しません。
Visual Basic(VBA)
-
9
エクセルVBAで画像を回転させる方法
Excel(エクセル)
-
10
回転させた画像を左上のセルにフィットさせたい
Excel(エクセル)
-
11
エクセルVBA 画像を貼り付けるセル位置を指定する方法
Excel(エクセル)
-
12
VBAで、JPG写真の撮影日時を読み出す関数?
Excel(エクセル)
-
13
エクセル マクロ写真帳に一括で写真を張り付けたいです。
Visual Basic(VBA)
-
14
【Excel】マクロでページを追加することはできますか?
Excel(エクセル)
-
15
VBAで保存しないで閉じると空のBookが残る
Excel(エクセル)
-
16
任意フォルダから画像をすべてエクセルの指定マスに貼り付けをしたい
Visual Basic(VBA)
-
17
Excel ユーザーフォームで表示させた画像をユーザーフォーム上で保存したい
Visual Basic(VBA)
-
18
VBAで写真を設定したフレームに挿入しようとしたが、Rotation=90の場合うまくいかない
Excel(エクセル)
関連するカテゴリからQ&Aを探す
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
【オナニーのおかず】写真見て...
-
高2男子です。最近、お◯にーを...
-
彼女の写真で抜くのはおかしいか
-
自分の若い頃の写真を見せたが...
-
これは何ですか? 時々黒い粒が...
-
男性がLINEで顔写真を送ってと...
-
アシダカグモ?が家に出ました...
-
別に付き合いたいとかはないけ...
-
好きな女性の写真を欲しがる心...
-
ラミネートを剥がす方法を教え...
-
自分1人が写った写真(自撮りで...
-
知り合いの写真で抜いたことは...
-
僕っておかしいですか? 彼女が...
-
男の人に聞きます! ラインのア...
-
LINEは交換してくれて毎日話し...
-
PCで G、Hドライブ(Google dri...
-
写真を欲しがる心理
-
元彼女とのエッチ写真を見てし...
-
マッチングアプリで何度か男性...
-
パスポート写真の画質が悪いと...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
【オナニーのおかず】写真見て...
-
高2男子です。最近、お◯にーを...
-
彼女の写真で抜くのはおかしいか
-
浮気したい相手に、子供の写真...
-
自分の若い頃の写真を見せたが...
-
ラミネートを剥がす方法を教え...
-
エクセルに貼付けた写真の容量(...
-
これは何ですか? 時々黒い粒が...
-
別に付き合いたいとかはないけ...
-
男の人に聞きます! ラインのア...
-
男性がLINEで顔写真を送ってと...
-
知り合いの写真で抜いたことは...
-
LINEは交換してくれて毎日話し...
-
自分1人が写った写真(自撮りで...
-
PCで G、Hドライブ(Google dri...
-
「※写真はイメージです。」に決...
-
パスポート写真の画質が悪いと...
-
幼稚園集合写真で心霊現象、?...
-
元彼女とのエッチ写真を見てし...
-
性器の写真撮影
おすすめ情報