「夫を成功」へ導く妻の秘訣 座談会

現在仕事で、エクセルでリストを作っています。
そのリストには、図もはめ込まなくてはならないのですが、
このリストをオートフィルタ機能で並べ替えようとすると
大変なことになってしまいます・・・。

たとえば、ひとつの商品分類『チョコレート』を選択して
オートフィルタで抽出すると、各社のチョコレート一覧が
出てきます。その隣りに、チョコレートのパッケージの図が
それぞれ表示されるはずなのですが、他の関係ない商品
(たとえば、飴類、スナック類など)のパッケージの図が
全て折り重なって残ってしまうのです。

こうならないように、エクセルのセルに完全に図をはめ込む
(一体化させる)ことはできないでしょうか?

セルと図形をグループ化できないかと思いましたが、それは
できないようでした・・・。また、ツール-オプション-編集で、
『オブジェクトをセルとともに切り取り、並べ替える』に
チェックを入れてもダメでした・・・。

どなた様か、よい方法をご存知の方がいらっしゃいましたら、
お教え頂けると大変助かります。
何卒、宜しくお願い申し上げます。

このQ&Aに関連する最新のQ&A

A 回答 (2件)

こんにちは。



印刷用途なら、とりあえず...

1. 画像をセルに完全に納める
  セル枠からはみ出さず、セルサイズより一回り小さくして、中心位置
  に配置する

2. 図の上で右クリック、[図の書式設定]-[プロパティー]-
  [セルに合わせて移動やサイズを変更する]

としてみたらどうなりますか? もちろん、[ツール]-[オプション]-[編集]の

> 『オブジェクトをセルとともに切り取り、並べ替える』

にはチェックを入れておきます。


表示上のみの問題ならコメントを活用してみるのも手です。

コメントもシェープの一種ですから、塗りつぶし効果で画像を表示させる
ことができます。コメントなので並べ替え、フィルタ等に影響されません。
つまり、通常は見えない状態ですが、セルにカーソルをあてるとコメント
の様に画像がポップアップ表示されるという仕組みです。

ご参考までに。
    • good
    • 1
この回答へのお礼

KenKen_SPさん、おはようございます!

早速にご回答くださいまして、本当にありがとうございます!!
おかげさまで、「印刷用途」の方法で解決致しました。
自分で色々試してみて、ヘルプ機能を見たり本を調べたりしても
分からなかったのですが、ちゃんと解決方法があったんですね!

KenKen_SPさんに教えて頂けて本当によかったです。
とってもとっても助かりました。
コメントを活用した方法まで教えて頂いて、ありがとうございます。
こちらの方法も、今度試してみようと思います。

また機会がございましたら宜しくお願い申し上げます。

お礼日時:2008/08/25 09:50

まず、すべてを表示し


画像を選択(一度にすべて選択したほうが速い)
右クリックメニューの「図の書式設定」→「プロパティ」
「セルに合わせて移動やサイズを変更する」を選択し「OK」

後は、オートフィルタでお好きにどうぞ

注意点は、画像をセルの中に納めること、少しでもでるとout
    • good
    • 7
この回答へのお礼

hige_082さん、おはようございます!

早速にご回答下さいまして、本当にありがとうございます!!
おかげさまで、hige_082さんに教えて頂いた方法で解決することが
できました。
画像を一度にすべて選択したほうが早いというアドバイスも頂いた
おかげで、思いのほか早く、リストを完成することができそうです。

hige_082さんの教え方は、簡潔でとっても分かりやすいですね!
機会がありましたら、また是非色々と教えてください。
宜しくお願い致します。

お礼日時:2008/08/25 09:53

このQ&Aに関連する人気のQ&A

お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!

このQ&Aを見た人はこんなQ&Aも見ています

このQ&Aを見た人が検索しているワード

このQ&Aと関連する良く見られている質問

QExcelでセルに画像ファイルやオートシェイプを固定したままソートしたい

いまいち、Excelの使い方が分かりません。
Excelで表を作っているのですが、どうしてもソートしなければなりません。
その時、画像(写真など)やオートシェイプが、ソートと関係なく、ずれてしまって、困っています。
オートフィルターなど使って、並べ替えをしたいのですが、行の中のセルが、いくつかあるのですが、そのセルの何個かに写真やオートシェイプが入っているのです。
Excelでこういったことができるのでしょうか?

Aベストアンサー

No.1 Yosha です。

>セル内で、画像やオートシェイプの位置を固定できますか?

固定するって、どう固定するのですか?

セル内にあれば、ソートしてもセル内の相対位置は変わりませんよね。

画像やオートシェイプ、セルの大きさがまちまちである場合、

プロパティ→「セルに合わせて移動するがサイズは変更しない」を選択した場合、ソート後にセルの幅がもとのセルと違うと1回目のソートで移動後、画像やオートシェイプがセルからはみ出る可能性があります。

プロパティ→「セルに合わせて移動やサイズを変更する」を選択した場合、ソート後もセル内の相対位置は変わりませんが、画像やオートシェイプの大きさが変わります。
セル内の相対位置とは、セルの左上隅から画像やオートシェイプの左上隅までの距離です。

マイクロソフトは、画像やオートシェイプをセルに貼り付けた後のソートは考えに入れてないか、頻度が少ないので対応しなかったかです。
したがって、これ以上をエクセルに求めるならば、VBAで対応しろ(結構面倒くさいです)ということみたいです。

使い方としては、一旦画像やオートシェイプをセル内に入る状態で貼り付けてソートし、その後もう一度画像やオートシェイプを調整し直すしかないのではと思います。

No.1 Yosha です。

>セル内で、画像やオートシェイプの位置を固定できますか?

固定するって、どう固定するのですか?

セル内にあれば、ソートしてもセル内の相対位置は変わりませんよね。

画像やオートシェイプ、セルの大きさがまちまちである場合、

プロパティ→「セルに合わせて移動するがサイズは変更しない」を選択した場合、ソート後にセルの幅がもとのセルと違うと1回目のソートで移動後、画像やオートシェイプがセルからはみ出る可能性があります。

プロパティ→「セルに合わせて移動や...続きを読む

QExcelでリストボックスよりオブジェクトを表示させたい

社員向けのイントラ掲出用のマニュアルとゆうか手順書をExcel2002で作っています。

その中でVLOOKUPやリストボックスを使って、文字や数値だけじゃなく画像やオートシェイプで作ったオブジェクトを表示させたいと思っていました。
過去の質問を見ると画像は色々と大変そうなんですが、オートシェイプで作ったものはできるんでしょうか?

Excel技道場とゆうサイトでそのサンプルを発見したので、自分なりに改良しようと思っているのですが、その仕組みが解明できません。
これはどうやっているのでしょうか?

ご存知の方がいらっしゃいましたらよろしくお願い致します。

 ↓そのサイトです。
http://www2.odn.ne.jp/excel/waza/SelectObject.xls

Aベストアンサー

[図のリンク貼り付け]+[名前の定義]+[関数] の複合技ですね。

試しに

(1) A1セルをコピーしたあと、適当なセルを選択
(2) [Shift]キーを押しながら[編集]-[図のリンク貼り付け]をクリック

A1 セルに何か入力すると貼り付けた画像と連動しているのがわかります。
(2)で貼り付けた画像を選択すると、数式バーに =$A$1 とあってリンク
されていることが確認できると思います。

次に A1 セル内にシェープでも画像でもいいから挿入してみてください。

これも連動しますよね。仕組みとしては以上です。

あとは応用で、リストボックスなどで動的に参照範囲を設定するためには
[名前の定義]という機能を使います。例えば、

1. [挿入]-[名前]-[定義] クリック
2. [名前の定義]ウインドウが開く
3. [名前]に例えば PIC と入力
4. [参照範囲]に =INDIRECT("A" & $C$1) と入力
5. [OK]をクリックして 2. のウインドウを閉じる
6. 上記(2)で挿入した図を選択し、数式バーの式を =PIC に変更


この状態で C1 セルに番号を入力すると、A列のその番号のセルがリンク
されます。

あとは、考えてみてください。

[図のリンク貼り付け]+[名前の定義]+[関数] の複合技ですね。

試しに

(1) A1セルをコピーしたあと、適当なセルを選択
(2) [Shift]キーを押しながら[編集]-[図のリンク貼り付け]をクリック

A1 セルに何か入力すると貼り付けた画像と連動しているのがわかります。
(2)で貼り付けた画像を選択すると、数式バーに =$A$1 とあってリンク
されていることが確認できると思います。

次に A1 セル内にシェープでも画像でもいいから挿入してみてください。

これも連動しますよね。仕組みとしては以上...続きを読む

QEXCELで、貼り付けた図を固定したい

EXCELで地図の写真を貼り付けて
その上から、ワードアートやテキストBOXで文字を追加していきたいのですが、下の写真が移動しないように固定することはできるのでしょうか?

Aベストアンサー

地図(写真)を選択し右クリック→図の書式→
「レイアウト」タブの詳細設定→
オプション→
配列タブ「文字列と一緒に移動する」のチェックをはずす→
「文字列の折返し」タブ→「背面」を選択してOK(レイアウトタブでも確認できます。)どうでしょうか?
 あと、図を右クリック「順序」で開き「テキストの背面へ移動」を選択しておけば文字の下に図(写真)が配置されますので、自由自在だと思いますが…

Qエクセルで、セルのサイズに合わせて画像を挿入するには?

現在、データ等を記載した商品一覧表を作成しているおります。表のセルの中に商品画像を挿入しているのですが、画像を挿入してから、毎回その度に画像をセルのサイズに手動で変更するのが手間だなーと思っています。
指定したセルのサイズに、自動で画像をサイズ変換してくれる機能はないのでしょうか。
御存じの方おられましたら、よろしくお願いします。

Aベストアンサー

機能としては難しいですが、VBAを使えば結構簡単に出来るはずです。
1.イメージを置きたいセルの幅、高さの取得。
2.イメージの表示サイズの取得
3.後は比率などでのイメージの修正。
但し、画像の挿入でしたものをあとから変更するのではなく、貼り付けマクロを作成し先ほどのロジックをVBA化すれば可能。

Qエクセルで打ち込んだ数字を自動で別シートに表示したい

エクセルでセルに打ち込んだ数字を自動で別シートに表示できる方法があれば、教えてください。

例えば、シート1のC1に5を打ち込んだら、シート2のD2にシート1で打ち込んだ5が自動で表示される。

また1列すべてを自動で表示させる場合、一つのセルの時と違いがありましたら教えてください。よろしくお願いします。

Aベストアンサー

こんばんは。
入力したセルの値を合計とかでなくて、
純粋に別のシートに自動的に表示したいのであれば、
以下の方法があります。

1.1つのセルだけの場合
例)シート1のC1に5を打ち込んだら、
  シート2のD2にシート1で打ち込んだ5が自動で表示される

⇒シート2のD2のセルをアクティブにして「=」を入力
 した後、シート1のC1をクリックする。
 そうするとD2のセルに「=Sheet1!C1」と表示され、値が自動的に
 表示されるようになります。

2.1列全てコピーしたい場合。
  コピー&リンク貼り付けを使うと便利です。

例)例)シート1のC1~C5に何かを入力したら、
  シート2のD2~D7にシート1で打ち込んだものが自動で表示される

  シート1にあるコピー元のセルを範囲選択して、
  シート2のD2の上で「右クリック」⇒「形式を選択して貼り付け」
  をクリックします。

  そして出てきた小さな画面の左下にある「リンク貼り付け」という
  ボタンをクリックすると完成です。
  試してみてください。。

  念のためにリンク貼り付けを図解しているURLを載せておきます。
  参考にしてみてくださいね。。
  http://www.geocities.jp/office_inoue/excel/eq21.htm

こんばんは。
入力したセルの値を合計とかでなくて、
純粋に別のシートに自動的に表示したいのであれば、
以下の方法があります。

1.1つのセルだけの場合
例)シート1のC1に5を打ち込んだら、
  シート2のD2にシート1で打ち込んだ5が自動で表示される

⇒シート2のD2のセルをアクティブにして「=」を入力
 した後、シート1のC1をクリックする。
 そうするとD2のセルに「=Sheet1!C1」と表示され、値が自動的に
 表示されるようになります。

2.1列全てコピーしたい場合。
  コ...続きを読む

Qエクセルのセルにデータとして画像を貼り付ける?

エクセルのセルにデータとして画像を貼り付けること(画像をシートに挿入する貼り付け方ではなく、たとえば名簿にその人の写真を貼り付けて、ソートしても一緒に動くような貼り付け方)ができると聞いたことがあるのですが、聞き間違いでしょうか。もしその方法や、必要なソフトがありましたら、教えてください。

Aベストアンサー

Sampleとして、A3のセルに入れたファイル名(+.jpg)の写真を、C3のセルに表示するものです。A3のファイル名に変更があればその時点で写真を変更するようにしてあります。複数の写真の場合は、for~nextなどで処理するといいと思います。

 写真のパスは、Photo_Pathで指定します。

Private Sub Worksheet_Change(ByVal Target As Range)

'指定のセルA3以外であれば処理しない
If Target.Column <> 1 And Target.Row <> 3 Then Exit Sub

Photo_Path = "D:\photo\"   '写真のフォルダ

Dim 写真 As Shape

'表示されている写真をすべて消す。
For Each 写真 In ActiveSheet.Shapes
If 写真.Type = 13 Then 写真.Delete
Next

Range("C3").Select  ’写真表示の場所

On Error GoTo ErrT
'写真の取り込み
ActiveSheet.Pictures.Insert(Photo_Path & Cells(3, 1) & ".jpg").Select
On Error GoTo 0
'写真の圧縮比
Selection.ShapeRange.ScaleWidth 1, msoFalse, msoScaleFromTopLeft
Selection.ShapeRange.ScaleHeight 1, msoFalse, msoScaleFromTopLeft
P0:
Exit Sub

ErrT:
MsgBox ("写真が見つかりません。")
Resume P0
End Sub

ご参考に

Sampleとして、A3のセルに入れたファイル名(+.jpg)の写真を、C3のセルに表示するものです。A3のファイル名に変更があればその時点で写真を変更するようにしてあります。複数の写真の場合は、for~nextなどで処理するといいと思います。

 写真のパスは、Photo_Pathで指定します。

Private Sub Worksheet_Change(ByVal Target As Range)

'指定のセルA3以外であれば処理しない
If Target.Column <> 1 And Target.Row <> 3 Then Exit Sub

Photo_Path = "D:\photo\"   '写真のフォルダ

...続きを読む

QエクセルのIF関数で、文字が入力されていたならば~

エクセルのIF関数で文字が入力されていたならば~、という論理式を組み立てたいと思っています。

=IF(A1="『どんな文字でも』","",+B1-C1)

A1セルに『どんな文字でも』入っていたならば、空白に。
文字が入っていなければB1セルからC1セルを引く、という状態です。

この『どんな文字でも』の部分に何を入れればいいのか教えてください。

またIF関数以外でも同様のことができれば構いません。

宜しくお願いします。

Aベストアンサー

=IF(ISTEXT(A1),"",B1-C1)

でどうでしょうか?

Q複数の画像ファイルを挿入したい

工事の仕事をしています。
報告書をエクセルで書いて出すのですが、
現場の写真を大量に撮影して貼り付けなければなりません。

「挿入」→「ファイルから」で一枚一枚貼り付けているのですが手間でなりません。

デジカメで撮影した写真なのでファイル名は連番です。
一括でワークシートにズラッと並べて挿入することはできないのでしょうか?

週末1-200枚の写真を貼る為に残業するのは堪えます。
良い知恵をお貸し下さい。

Aベストアンサー

工事写真票の作成ですか?報告書の提出時期ですものね。(^^;)

工事写真ということで、次の点が重要になるかと思います。

1. 貼付けられる順番
  工事の様子を時間を追って撮影している場合、順番が重要です。
2. リサイズの問題
  工事写真は正確性が求められます。リサイズする場合、縦横比を固定すべきです。

1と2をクリアしつつ、貼付けを楽にするには、EXCELではマクロしか解決方法がありません。個人的にはVIXをお勧めしますが、一応EXCELでのマクロをアップします。貼付け後のサイズはセルの高さにあわせています。必要があれば、コードをカスタマイズして下さい。

ただ、他の方からもご指摘があるとおり、EXCELに200枚の画像は無茶ですね。複数のブックに切り分けましょう。

なお、マクロ[InsertPictures]は#2.papayukaさんのコードをかなり拝借しておりますし、配列のソートプログラムも以前どこかで教えて頂いたものです。クイックソートの方が早いのですが、長くなるので、バブルソートで済ませています。


以下コード。

Option Explicit
Sub InsertPictures()
  
  Dim fName As Variant
  Dim i As Long
  Dim Pict As Picture

  fName = Application.GetOpenFilename("JPGファイル, *.jpg", MultiSelect:=True)
  If IsArray(fName) Then
    Application.ScreenUpdating = False
    '配列に格納されたファイル名をソート
    BubbleSort fName, True
    For i = 1 To UBound(fName)
      Set Pict = ActiveSheet.Pictures.Insert(fName(i))
      With Pict
        .TopLeftCell = ActiveCell
        .ShapeRange.LockAspectRatio = msoTrue
        'どちらかをコメントアウト
        .ShapeRange.Height = ActiveCell.Height 'セルの高さリサイズ
        '.ShapeRange.Width = ActiveCell.Width 'セルの幅にリサイズ
        ActiveCell.Offset(0, 1) = fName(i) 'ファイル名書込み
      End With
      ActiveCell.Offset(2, 0).Activate
      Application.StatusBar = "処理中:" & i & "/" & UBound(fName) & "枚目"
    Next i
  End If
  With Application
    .StatusBar = False
    .ScreenUpdating = True
  End With
  Set Pict = Nothing
  MsgBox i & "枚の画像を挿入しました", vbInformation

End Sub

'値の入替え
Public Sub Swap(ByRef Dat1 As Variant, ByRef Dat2 As Variant)

  Dim varBuf As Variant
  varBuf = Dat1
  Dat1 = Dat2
  Dat2 = varBuf

End Sub

'配列のバブルソート
Public Sub BubbleSort(ByRef aryDat As Variant, _
  Optional ByVal SortAsc As Boolean = True)

  Dim i As Long
  Dim j As Long
  For i = LBound(aryDat) To UBound(aryDat) - 1
    For j = LBound(aryDat) To LBound(aryDat) + UBound(aryDat) - i - 1
      If aryDat(IIf(SortAsc, j, j + 1)) > aryDat(IIf(SortAsc, j + 1, j)) Then
        Call Swap(aryDat(j), aryDat(j + 1))
      End If
    Next j
  Next i

End Sub

工事写真票の作成ですか?報告書の提出時期ですものね。(^^;)

工事写真ということで、次の点が重要になるかと思います。

1. 貼付けられる順番
  工事の様子を時間を追って撮影している場合、順番が重要です。
2. リサイズの問題
  工事写真は正確性が求められます。リサイズする場合、縦横比を固定すべきです。

1と2をクリアしつつ、貼付けを楽にするには、EXCELではマクロしか解決方法がありません。個人的にはVIXをお勧めしますが、一応EXCELでのマクロをアップします。貼付け後のサイズはセ...続きを読む

Qエクセルで、条件に一致した行を別のセルに抜き出す方法

エクセルで、指定した条件に一致するセルを含む行をすべて抜き出す方法が知りたいです。

たとえば、

<A列> <B列> <C列>
7/1 りんご 100円
7/2 ぶどう 200円
7/2 すいか 300円
7/3 みかん 100円

このような表があって、100円を含む行をそのままの形で、
別のセル(同じシート内)に抜き出したいのですが。

7/1 りんご 100円
7/3 みかん 100円

抽出するだけならオートフィルターでもできますが、
抽出結果を自動的に、別の場所に、常に表示させておきたいのです。

初歩的な質問だと思いますが、検索しても分からなかったので、よろしくお願いします。

Aベストアンサー

同じ質問が結構よく出てますが、そんなに初歩的でもありません
別シートのA1セルに「100円」と入力し、そのシートの任意のセルに以下の式を貼り付けて下さい。後は、下方向、右方向にコピー。
日付のセル書式は「日付」形式に再設定してください

=IF(COUNTIF(Sheet1!$C:$C,$A$1)>=ROW(A1),INDEX(Sheet1!A:A,LARGE(INDEX((Sheet1!$C$1:$C$500=$A$1)*ROW(Sheet1!$C$1:$C$500),),COUNTIF(Sheet1!$C:$C,$A$1)-ROW(A1)+1)),"")

データ範囲は500行までとしていますが、必要に応じて変更して下さい

QExcel2010でセルに画像を呼び出す

Excel2010にシート1とシート2があります。
記入・印刷用シートはシート2とします。

シート1のA1セルに50pixel×50pixelの画像(png)を置きます。

シート2のA1セルに何か数字や文字が書かれた時に、
[マクロを使わずに]
シート2のB1セルに、シート1のA1セルにある画像を表示させるにはどうしたらいいですか?


上記ができない場合、シート2のB1セルにドロップダウンリストを作成して、
シート1のA1セルの画像を呼び出すことは可能ですか?

------------------------
Windows7 64bit
Excel2010 64bit
------------------------

Aベストアンサー

VLOOKUPで画像を変えたい
http://menushowdelay.blog13.fc2.com/blog-entry-518.html
の一番上のリンクなどはよく紹介されていますね。


このQ&Aを見た人がよく見るQ&A

人気Q&Aランキング