Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


26197 / 76738 ←次へ | 前へ→

【55873】Re:サイズが異なる画像の貼り付け
発言  n  - 08/5/21(水) 16:49 -

引用なし
パスワード
   >.Left = ActCell2.Left + 12
この12というのがセル枠からのマージンだと解釈して、

Dim n As Single 'マージン用
Dim x As Double '比率。縦横どちらか小さい方

上記変数2つ追加し、

n = 12
>For Each Acell In .Range("A1", .Range("A65536").End(xlUp))
>:
With .Pictures.Insert(画像ファイル名)
  With .ShapeRange
    .LockAspectRatio = msoTrue
    .Left = ActCell2.Left + n
    .Top = ActCell2.Top + n
    x = Application.Min((ActCell2.Width - n * 2) / .Width _
             , (ActCell2.Height - n * 2) / .Height)
    'Width|Heightは.ShapeRangeに対して変更しないと _
     LockAspectRatioプロパティが効果ない...と思います
    .Height = .Height * x
    .AlternativeText = 画像ファイル名
  End With
  .Placement = xlMove
  .PrintObject = True
End With
>:


#余談:『享受』は違...
4 hits

【55805】サイズが異なる画像の貼り付け mari 08/5/20(火) 10:40 質問
【55809】Re:サイズが異なる画像の貼り付け kanabun 08/5/20(火) 11:14 発言
【55812】Re:サイズが異なる画像の貼り付け mari 08/5/20(火) 11:55 質問
【55813】Re:サイズが異なる画像の貼り付け kanabun 08/5/20(火) 12:10 回答
【55819】Re:サイズが異なる画像の貼り付け mari 08/5/20(火) 15:32 お礼
【55814】Re:サイズが異なる画像の貼り付け n 08/5/20(火) 12:53 発言
【55866】Re:サイズが異なる画像の貼り付け mari 08/5/21(水) 15:11 質問
【55871】Re:サイズが異なる画像の貼り付け kanabun 08/5/21(水) 16:14 発言
【55873】Re:サイズが異なる画像の貼り付け n 08/5/21(水) 16:49 発言

26197 / 76738 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free