turuzouのプロフィール

ExcelVBAを勉強している者です 早速ですが質問させて頂きます。 指定したファイルにある画像を挿入する際、 縦横比を固定して挿入したいのですが上手くいきません。 画像の横巾は300に指定したいので、縦の長さはソレが基準となります。 調べていくうちに LockAspectRatioプロパティをTrueにすると 比率を固定できるのは分かったので、組み込もうと試行錯誤して見ましたが 上手く動かせる所まで至りませんでした。 作成したコードのドコにそれを入れ込んだら上手く動くのかご指導頂きたく、 よろしくお願い致します。 当方はExcel2002を使用しております。 目的の動作 ●指定フォルダの中からセルG2と同じ名前の画像を挿入 ●セルG2の内容が変更されると発生するイベント ●画像はシートの左から100、上から50の位置に配置 ●画像の巾は300に設定。縦は比率を守り巾の300に合わせて調整 現在のコード Private Sub Worksheet_Change(ByVal Target As Range) Const foldnm = "C:\Documents and Settings\●●●\My Documents\My Pictures\抽出用写真\" Application.ScreenUpdating = False '画面の更新を停止 With ActiveSheet.Pictures.Insert(foldnm & Range("G2").Value & ".jpg") .Left = 100 '左位置100 .Top = 50 '上位置50 .Width = 300 '画像巾300 End With Application.ScreenUpdating = True '画面の更新を再開 End Sub

こんにちは。 教えてください。 現在、Excel2007を利用しております。 シート１に全体のデータ（項目：氏　名　性別　年齢など）があります。 シート２に、例：21歳の男性のみのデータを抽出したいと考えております。 シート１は随時追加していくデータとなっております。 シート２は、シート１にデータを追加すると自動的に更新されるようにしたいのです。 クエリや、フィルタオプションやマクロなども考えましたが、 難しく、出来上がりませんでした。 どなたか、詳しく教えて頂けませんでしょうか？ 困っております。 よろしくお願いいたします。

シート１とシート２があります。 シート１の１行目の項目を、シート２の１行目にコピーすることはできます。 シート１の２行目の項目を、シート２の２行目にコピーし、なおかつ、シート２の１行目にコピーした項目が削除される・・・・・というふうに一度にしたいのですが、方法はありますか？

シート１とシート２があります。 シート１の１行目の項目を、シート２の１行目にコピーすることはできます。 シート１の２行目の項目を、シート２の２行目にコピーし、なおかつ、シート２の１行目にコピーした項目が削除される・・・・・というふうに一度にしたいのですが、方法はありますか？

エクセルで空白でない個数を調べたいのですが、COUNTA関数を使ってみたのですが出来ませんでした。よく見たら数式が入っていました。表示されているセルの個数を調べる方法ってあるのでしょうか。ありましたら教えてください。