[[20070113183512]]　『写真のサイズを自動で変えたいです』（じゅんこりん）　ページの最後に飛ぶ

『写真のサイズを自動で変えたいです』（じゅんこりん）
皆様はじめまして。エクセルで工事台帳のようなものを作成しています。
季節ごとに写真があるため全部で400枚以上有ります。写真は、大きさなどを先に変えてはいけない事になっており、CDの中の写真データーをエクセルに挿入してその後「図のサイズ」を変更しています。
昨日から一生懸命マクロで、写真のサイズを変更できないかやって見たのですが、最初の写真（マクロ登録の時使った写真）は出来ましたが、次の写真を挿入してマクロを実行してみた所実行時エラーになってしま実行出来ませんでした。本当を言うとマクロ自体余り理解できていません。どなたか教えてくださいませんか？写真の量があるのに、急ぎの仕事でとても困っています。
エクセル2002、Windows2000を使用しています。

 現状のコードをアップしてみてください。
 (MARBIN)

すいません、コードってひょっとして・・↓これですか？(^_^;)
1日考えてしまいました・・。

Sub Macro2()
'
' Macro2 Macro
' マクロ記録日 : 2007/1/15 ユーザー名 : junri
'

    ActiveSheet.Shapes("Picture 1").Select
    Selection.ShapeRange.LockAspectRatio = msoTrue
    Selection.ShapeRange.Height = 226.5
    Selection.ShapeRange.Width = 302.25
    Selection.ShapeRange.Rotation = 0#
    Range("H9").Select
End Sub

 どれも同じ大きさで良いなら、一番最初の
 >ActiveSheet.Shapes("Picture 1").Select
 これを消してマクロを実行すると
「現在選択された物」に関してマクロが適用されますが
 もっと自動的に行うことがご希望ですかね？

 (HANA)

ありがとうございました♪出来ました！！とても助かりました。サイズ変更の事はこれで解消できました。本当にここで聞いてよかった！
業務も多少簡素化できて、マクロ初挑戦して本当によかったです。
ところで、もっと自動的にってできるんですか？

 いや、何かもっと他に“野望”が在るのかと思いまして。（笑）

 ・・・もしかして、あったりするのですか？

 (HANA)

他の野望はあるような無いようなです・・。
もうすぐこの作業も終わりです(^.^)本当に助かりました！
HANAさま☆本当にありがとうございました。

コメント返信：

[ 一覧(最新更新順) ]

[[20070113183512]] 『写真のサイズを自動で変えたいです』（じゅんこりん） ページの最後に飛ぶ

[[20070113183512]]　『写真のサイズを自動で変えたいです』（じゅんこりん）　ページの最後に飛ぶ