Excelでセルと写真をリンクする

Microsoft Excelにあるセルに画像を接続する方法を知っている人はいますか？

たとえば、最初の列には携帯電話のブランドをいくつか掲載し、2番目の列にはそれらの写真をいくつか掲載しました。ここで、最初の列の値をアルファベット順に並べ替えると、2番目の列の画像を維持したいと思います…

どうやってやるの？

2014/02/05user3277105

並べ替える列と画像が含まれている列の両方を選択します（画像はセルと比較して小さい、つまりセル内にあると想定しています）。オブジェクトの配置プロパティが「セルを使用して移動するがサイズ変更しない」に設定されていることを確認してください。並べ替えを行うと、画像はリストが並べ替えられて移動します。

注-並べ替えるときは、画像が含まれる列を範囲内に含める必要があり、画像はセル内に収まる必要があります。

次のVBAスニペットは、スプレッドシート内のすべての画像に「移動とサイズ」プロパティが設定されていることを確認します。

Sub moveAndSize()
Dim s As Shape
For Each s In ActiveSheet.Shapes
  If s.Type = msoPicture Or s.Type = msoLinkedPicture Or s.Type = msoPlaceholder Then
    s.Placement = xlMove
  End If
Next
End Sub

移動後も画像が収まるようにしたい場合は、xlMoveAndSizeの代わりにxlMoveを使用できます。

2014/02/05Floris