- ベストアンサー
エクセル2007での図の貼り付け方法について
chibita_papaの回答
出来なくなったようですね。 私も、同じように困りました。 出来ないものはしょうがないので、対応策を考えましょう。 Selection.Cut Range(aPos).Select ActiveSheet.Paste を追加して下さい。
関連するQ&A
- エクセル2000で作ったファイルをエクセル2007で
OSはWinXPです。エクセル2000でこちらで作成して頂いた下記のようなマクロを使用していました。 セルI6,I21,I39,C39へZ:\社内データ\生産管理\製品見取り図\添付用に入っているセルM15の名前の略図を自動で添付するというものです。 この度、職場のパソコンの入れ替えに伴いエクセル2007に変更され、2007でこのファイルを開きマクロを実行すると 4枚の略図は指定したセルとは違う場所へ重なって添付されてしまいます。 （フォルダ名は修正済） エクセル2000で作成したマクロは2007では正常に動作しないものですか？変更するべきコマンドなどがあるのでしょうか？ 他にも動作しないマクロがあり困っています。エクセル2007の操作にまだ不慣れな為アドバイスを宜しくお願いします。 Sub pictureSet() Dim jpgRg As String jpgRg = "M15" Dim myFolder As String myFolder = "Z:\社内データ\生産管理\製品見取り図\添付用\" Dim jpgFilename As String 'jpgファイルのフルパス jpgFilename = myFolder & ActiveSheet.Range(jpgRg) & ".jpg" '指定したセルにjpgファイルを貼り付ける Range("I6,I21,I39,C39").Select '挿入する個々のセル For Each rg In Selection rg.Select ActiveSheet.Pictures.Insert(jpgFilename).Select Next ActiveSheet.Range(jpgRg).Select End Sub
- 締切済み
- Visual Basic
- エクセルVBA activesheetの非表示
エクセル２００２使用です。 sheet1のモジュールにsheet2のセルから値を取得するコードを書きました。 セルの値を取得後、sheet1の画面に戻します。 値を取得するために一度sheet２をactivesheetにする必要があると思うのですが、 その際にマクロを実行するとエクセルの画面が一瞬sheet1からsheet2に変わってしまいます。 この、一瞬のsheet2の画面を出さない方法はあるのでしょうか？ sub aaa() Dim tukikekka as range Worksheets("sheet2").Activate Set tukikekka = ActiveSheet.Range("A2:A15") _ .Find(what:=ActiveSheet.Range("A1"), lookat:=xlWhole) Worksheets("sheet1").Activate ActiveSheet.Range("H7").Value = tukikekka.Offset(,7） end sub （実際のコードはもう少し長いので、Sheet2がはっきりと見えます） よろしくお願いします。
- ベストアンサー
- オフィス系ソフト
- エクセルVBAでコピーすると行の高さが低くなる
いつもお世話になってます。 エクセル２００３のVBAで、セルの範囲を指定してコピーすると行の高さが低くなってしまいます。その他の書式は、変化せずうまくコピーできています。以下がプログラムです。 Sub copy_hyou() Worksheets("sheet1").Activate Range("A1:K24").Copy 'セルA1からK24をコピーします。 Range("A25").Select 'A25からペイストします。 ActiveSheet.Paste End Sub どう直せば、行の高さもコピーできるでしょうか？ お休み中すみませんがよろしくお願いいたします。
- ベストアンサー
- オフィス系ソフト
- EXCELのVBAによる写真貼り付け時に重なる。
VBAの初心者です。 エクセルに写真データを貼り付けるVBAで、以下のマクロを実行するとシートの同じセル位置B5に、写真が２枚重なった状態となります。 セルのB5とH5の位置に写真をそれぞれ貼りつけるために、どのように修正すればよいのでしょうか？ご教授ください。 OS：Vista ソフト：Excel2007 Sub 写真ファイル呼び出し() ' Sheets("風景1").Select Range("B5").Select ActiveSheet.Pictures.Insert(Worksheets("風景写真").Range("o4").Value).Select With Selection Selection.ShapeRange.LockAspectRatio = msoTrue '縦横比を固定するコマンド Selection.ShapeRange.Width = 245 '縦横比固定、幅のみを指定する End With 'Sheets("風景2").Select Range("H5").Select ActiveSheet.Pictures.Insert(Worksheets("風景写真").Range("o5").Value).Select With Selection Selection.ShapeRange.LockAspectRatio = msoTrue '縦横比を固定するコマンド Selection.ShapeRange.Width = 245 '縦横比固定、幅のみを指定する End With End Sub
- ベストアンサー
- オフィス系ソフト
- エクセルのシートに貼りつけたbmpをjpeｇに
手持ちの本（4冊）やインターネットで探せなかったので、教えてください。 エクセルのシートに15枚の画像（bitmap）が貼られており このままではファイルが重いので、同サイズのjpegに変換したいのですが・・・ 手でやると 画像選択→切り取り→貼り付けセルを選択→型式を選択して貼り付け→図（jpeg） 以下マクロの記録 ActiveSheet.Shapes.Range(Array("図 11")).Select Selection.Cut Range("H60").Select ActiveSheet.PasteSpecial Format:="図 (JPEG)", Link:=False, DisplayAsIcon:= _ False End Sub となります。 これをVBAで数10ファイル連続で実行したいのですが、1つ問題があります。 画像はカウント後に配列で取り込み順次処理していきますが、 同じ場所に同じ大きさで貼りたいのですが、元画像を貼り付けているセルの番地の 取得をどうしたらよいか悩んでいます コレ → Range("H60").Select 画像が張り付いているセルは複数で左上のセルを選択して貼り付けしたいのですが・・・ 貼り付けた画像（bitmap）は名前が自動的に振られているのでセルを指定して貼り付けると 元の位置に貼られない可能性があるので・・・ 貼り間違いなどで、同じ位置でも図の名前（図11等）が違ってしまっている場合 説明が下手で申し訳ありませんが、ご存知の方よろしくお願いいたします。
- ベストアンサー
- その他MS Office製品
- エクセルVBA 追加したシート名をハイフン（-）を入れて連番にする方法
エクセル2003です。 シートをコピーし追加、 一つ前のシートの一部セルをセル参照するコードを作成しました。 今の段階ではコピーしたシート名が請求書1、請求書2、請求書3・・・となるのですが シート名を請求書1-1、請求書1-2、請求書1-3・・・とすることは可能でしょうか？ "請求書"を"請求書1-"にするとコピーしたシートのセル参照をした部分が うまく参照されずエラーになってしまいます。 シート名にハイフンを入れてもエラーが出ない方法をご存じの方いらっしゃいましたら 是非ご教授をお願い致します。 Sub test1() Dim i As Integer Worksheets(2).Select For i = 2 To 5 Worksheets(2).Copy after:=ActiveSheet ActiveSheet.Name = "請求書" & i With Worksheets("請求書" & i) .Range("H15").Formula = "=請求書" & i - 1 & "!F10" End With Next i End Sub
- 締切済み
- その他MS Office製品
- Excel VBA グラフチャート名で指定するには
ExcelのVBAでグラフを作成した後 ActiveChartでアクティブなチャートを指定するのではなく ActiveChart.Nameなどで取得したチャート名で指定するには どのように記述すればよいでしょうか。 例えば、以下のtest()のコードの中の ActiveChart.SetSourceData Source:=Range("Sheet1!A1:B2"), PlotBy:=xlRows ActiveChart.SetElement (msoElementPrimaryCategoryAxisNone) ActiveChart.PlotArea.Select ActiveChart.Parent.Copy の部分をActiveChartを使わずチャート名(chart_nameなど)で指定するには どのように記述すればよいでしょうか。 よろしくお願いします。(Windows7,Excel2016) --------------------------------------- Sub test() Dim chart_name As String ThisWorkbook.Worksheets("Sheet1").Select ThisWorkbook.Worksheets("Sheet1").Range("A1") = "A" ThisWorkbook.Worksheets("Sheet1").Range("A2") = "B" ThisWorkbook.Worksheets("Sheet1").Range("B1") = "75" ThisWorkbook.Worksheets("Sheet1").Range("B2") = "25" ThisWorkbook.Worksheets("Sheet1").Range("A10").Select ThisWorkbook.Worksheets("Sheet1").Shapes.AddChart2(297, xlBarStacked100).Select ThisWorkbook.Worksheets("Sheet1").Select ActiveChart.SetSourceData Source:=Range("Sheet1!A1:B2"), PlotBy:=xlRows chart_name = ActiveChart.Name chart_name = Trim(Right(chart_name, Len(chart_name) - Len(ActiveSheet.Name))) ThisWorkbook.Worksheets("Sheet1").ChartObjects(chart_name).Activate ActiveChart.SetElement (msoElementPrimaryCategoryAxisNone) ActiveChart.PlotArea.Select ActiveChart.Parent.Copy End Sub
- 締切済み
- Excel（エクセル）
- シートのセレクトのしかたを
シートのセレクトのしかたを 教えてください 下記のようなマクロを途中まで作りましたが うまく動作しません メッセージボックスには Sheet8.Select と表示されますが 実際にシート８をセレクトしたいのです どの様に書けばよいのかお教え下さい Sub Maco11() Dim ex As String Dim ey As String ex = ActiveWorkbook.Sheets.Count ey = "Sheet" & ex & ".Select" MsgBox ey ' ここにどの様に書けば良いのでしょうか End Sub
- ベストアンサー
- Windows Vista
- エクセル2002を使用しています。
エクセル2002を使用しています。 vbaでシート削除についてお尋ねします。 以下の方法で挿入し、削除したいのですが、シート名を取得できないため、削除できません。 ご指導をお願いいたします。 Sub test1() nen = 2006 Worksheets.Add ActiveSheet.Name = nen - 1 Sheets("a1").Select Range("A1") = nen - 1 Sheets("a1").Select t = Range("A1") Worksheets("t").Delete End Sub
- ベストアンサー
- Visual Basic
お礼
うまくいきました。 ありがとうございます。 非常に助かりました。 客先には、別のエクセル2003のＰＣでこの部分をお願いしていたので 信頼も回復できると思います。