iTunes Storeにログインもしているのでずが、手持ちのCDのアートワークを入手できないでいます。
CDは坂本龍一です。5枚ともだめでした。有名なのにおかしくないですか。

A 回答 (7件)

私は参考URL又は下記URLのソフト(widget)を使用して取得しています。


良かったら試してみてください。
http://www.widget-foundry.com/

参考URL:http://www.liquidx.net/albumartwidget/
    • good
    • 0

私もANo.5の方法でアルバムアートワークをゲットしています。



1.Googleで「坂本龍一 Amazon」等のキーワードで【イメージ検索】する
2.イメージを最大化(なるべく大きいサイズで開く)
3.iTunesの表示を「アートを表示」にする
4.iTunesで曲をクリックする(もしくは再生する)
5.ブラウザの画像をiTunesの「ブラウザのアートワークをドラッグ」ってトコにドロップする

...というような手順です。

(現在iTunesで再生中のアルバムのアートワークを自動で探すアプリもあったと思います...名前は忘れてしまいましたが...)
    • good
    • 0

追加します。


アートワークはiTunes Store以外の画像でも登録可能ですんでgoogleの画像検索などで画像を探して登録してみてはどうでしょう。
自分もiTunes Storeで入手できるアートワークより画質のイイものを見つけて登録したりしてます。
    • good
    • 0

iTunes Storeで坂本龍一のアルバムを取り扱っていないからです。


取り扱っていないアーチストのアートワークは入手できません。
アートワークのデータベースは世界共通とのことなのでどこかの国iTunes Storeが坂本龍一を取り扱い始めれば入手できるようになるでしょう。
ちなみにiTunes Storeで購入したか否かは関係ありません。

参考URL:http://journal.mycom.co.jp/column/osx/197/
    • good
    • 0

知らんでいる時にアートワークが付いていますが、


大概は自分で登録してます。
珠に違ったのが登録されている時も有る。
    • good
    • 0

iTunes Storeで販売されていない曲でも、アートワークを入手できるものはあります。

矢野顕子の「Super Falk Song」など、私がCDから取り込んだアルバムのいくつかで、アートワークを入手できました。
CDDBと同様に、アルバムのアートワークは、アップルやiTunes社が管理・運営しているサービスではないのではないでしょうか?
しかし、だからといって「有名なのにおかしくないですか。」というのは的外れでしょう。有名だからこそ、権利関係のクリアに手間取るということも考えられます。
    • good
    • 0

有名であっても、ItuneMusicStoreに売っている曲以外のは入手できなくて当然なのではないでしょうか?


むしろ、ItunesMusicStoreから買った曲以外から入手できるのでしょうか?
アートワーク自体にも著作権がありますから、ただで入手出来る方がおかしいと思うのですが。
    • good
    • 0

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

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

Qワークグループが勝手にWORKGROUPに変わった

(a)LANの形態
ルータを用いて次の3台でLANを組んでいます。
(1)Windows 7 Ultimate 64 SP1 デスクトップ
(2)Windows 7 Ultimate 64 SP1 ノート
(3)Windows XP Professional SP3 デスクトップ
3台ともワークグループをfamilyにして快調にデータのやり取りをしていました。

(b)問題の発生
3カ月ほど前から(3)から(1)と(2)へアクセスできなくなりました。
(1)と(2)から(3)へはそれまでどおり問題なくアクセスできています。

(c)問題発生後の対策
原因が分からずほっておいたのですが、今日別のことをしていて気付いたのですが、(1)と(2)のワークグループがWORKGROUPに変わっていました。(3)のみはfamilyのままでした。

私を含め、家族のだれも、ワークグループをWORKGROUPに変更することは勿論していませんし、OSの再インストール、ルータの再セットアップ、システムの復元なども一切していません。ただ、(1)~(3)とも、WindowsUpdateのサイトにアクセスして「重要な更新プログラム」は何度かインストールしましたが、そんなことでワークグループがWORKGROUPになるなんてことはないですよね。

(d)質問
なぜ、2台ともワークグループがWORKGROUPになったのでしょうか。考えられる原因をお教えいただけないでしょうか。

もっとも、(3)から(1)と(2)へアクセスできなくなっただけで、(b)の問題の発生後も、(1)、(2)から(3)へは何の問題もなくアクセスできていたので、これも不思議と言えば不思議なんですが.....。

(a)LANの形態
ルータを用いて次の3台でLANを組んでいます。
(1)Windows 7 Ultimate 64 SP1 デスクトップ
(2)Windows 7 Ultimate 64 SP1 ノート
(3)Windows XP Professional SP3 デスクトップ
3台ともワークグループをfamilyにして快調にデータのやり取りをしていました。

(b)問題の発生
3カ月ほど前から(3)から(1)と(2)へアクセスできなくなりました。
(1)と(2)から(3)へはそれまでどおり問題なくアクセスできています。

(c)問題発生後の対策
原因が分からずほっておいたのですが、今日別のことをしていて気...続きを読む

Aベストアンサー

>(1)と(2)から(3)へはそれまでどおり問題なくアクセスできています。

 同じ Windows 7 の (1)と(2)どうしも、お互いにアクセス出来ていた
わけですね?


>そんなことでワークグループがWORKGROUPになるなんてことはないですよね。

 確証はありませんが、大いにあり得ることだと思います。

 当方、ワークグループ名では経験がありませんが、Windows Updateが
きっかけでシステム環境が変更されてしまったことは何度かあります。


>なぜ、2台ともワークグループがWORKGROUPになったのでしょうか。

 Windows 7 の、或いは更新プログラムのバグかも知れません。


>(b)の問題の発生後も、(1)、(2)から(3)へは何の問題もなくアクセス
>できていたので、これも不思議と言えば不思議なんですが.....。

 Windows 7 特有の「ホームグループ」や「ホームネットワーク」など
という何だかよく分からない仕様が関係しているような気がします。

【Windows7】ネットワークの場所の設定でどれを選択すればいい?
http://long-distance.jp/sb/log/eid81.html

 個人的には、「社内ネットワーク」を使った設定を推奨したいところ
です。

Windows Vista と 7 でファイル共有
http://oshiete.goo.ne.jp/qa/7202832.html

ネットワークの場所をあとから変更したい
http://www.frontier-k.co.jp/faq/12/004293.htm

ネットワークの場所(ホーム/社内/パブリック)を切り替えるには
http://pc.nikkeibp.co.jp/article/technique/20100803/1026694/

 因みに、オイラの場合、「パブリックネットワーク」などという何と
なくヤバそうな管理方法については、関知したことがありません。


 また、アクセス出来なくなった時期と Windows7 側のワークグループ
名が変わった時期が、タイミング的に同じかどうかという問題もあると
思います。
 Windows Updateに原因がある場合、WinXP 側が、Vista 以降自動的に
有効になっているネットワーク設定の TCP/IPv 6なるプロトコルに引き
ずられているのかも知れません。

Windows VistaのIPv6を無効にする
http://www.atmarkit.co.jp/fwin2k/win2ktips/949vistav6rm/vistav6rm.html


 それから、Windows 7 (1)(2)でご利用のセキュリティソフトの状況が
よく分かりませんが、一応そちらの設定も確認してみましょう。

参考URL:http://oshiete.goo.ne.jp/qa/6074853.html

>(1)と(2)から(3)へはそれまでどおり問題なくアクセスできています。

 同じ Windows 7 の (1)と(2)どうしも、お互いにアクセス出来ていた
わけですね?


>そんなことでワークグループがWORKGROUPになるなんてことはないですよね。

 確証はありませんが、大いにあり得ることだと思います。

 当方、ワークグループ名では経験がありませんが、Windows Updateが
きっかけでシステム環境が変更されてしまったことは何度かあります。


>なぜ、2台ともワークグループがWORKGROUPになったのでしょうか。

 Win...続きを読む

Qアルバムのアートワークを壁紙に・・

macを使っているのですが、itunesの、アルバムのアートワークの写真を壁紙に設定することはできますか?
できたら方法を教えてください!

Aベストアンサー

↓カメレオン
http://veadardiary.blog29.fc2.com/blog-entry-876.html

Qワークシート名を変数に格納する方法

VBA初心者です。ワークシートが5つあり各シートにデータを転記するマクロを作成したいのですがワークシート名を変数にしてループ処理することはできるのでしょうか?

下記はワークシート名"H"にだけ転記するマクロを作成してみましたがこの後がわからず悩んでいます。よろしくお願いします。

Dim データ行 As Integer
Dim cnt As Integer
Dim データ数 As Integer
cnt = 4
データ行 = Cells(Rows.Count, 8).End(xlUp).Row
For データ数 = 11 To データ行

  If Worksheets("入力").Cells(データ数,1).Value= "2"Then

Worksheets("H").Cells(cnt, 6).Value = Worksheets("入力").Cells(データ数, 8).Value
Worksheets("H").Cells(cnt, 7).Value = Worksheets("入力").Cells(データ数, 9).Value
Worksheets("H").Cells(cnt, 8).Value = Worksheets("入力").Cells(データ数, 27).Value
Worksheets("H").Cells(cnt, 9).Value = Worksheets("入力").Cells(データ数, 19).Value
Worksheets("H").Cells(cnt, 10).Value = Worksheets("入力").Cells(データ数, 20).Value
Worksheets("H").Cells(cnt, 11).Value = Worksheets("入力").Cells(データ数, 21).Value
Worksheets("H").Cells(cnt, 12).Value = Worksheets("入力").Cells(データ数, 10).Value
Worksheets("H").Cells(cnt, 13).Value = Worksheets("入力").Cells(データ数, 11).Value
Worksheets("H").Cells(cnt, 14).Value = Worksheets("入力").Cells(データ数, 22).Value
Worksheets("H").Cells(cnt, 15).Value = Worksheets("入力").Cells(データ数, 23).Value
cnt = cnt + 1


End If

Next データ数

VBA初心者です。ワークシートが5つあり各シートにデータを転記するマクロを作成したいのですがワークシート名を変数にしてループ処理することはできるのでしょうか?

下記はワークシート名"H"にだけ転記するマクロを作成してみましたがこの後がわからず悩んでいます。よろしくお願いします。

Dim データ行 As Integer
Dim cnt As Integer
Dim データ数 As Integer
cnt = 4
データ行 = Cells(Rows.Count, 8).End(xlUp).Row
For データ数 = 11 To データ行

  If Worksh...続きを読む

Aベストアンサー

> 説明不足でした。ワークシートが8個ありその内の5つを変数に格納したいのですがtargetSheetで対照とする方法もわかりません。お手数ですがよろしくお願いします。

であるならば、その状態や条件も提示していただかないと的確に回答できませんよ。

8個のシート中、5個の対象シートがどこにあるか決まっていない。or 決まっている。
5個の対象シートの名前には決まった位置に共通する文字があり、残り 3個のシートには無い。
とか、、、

対象 5シートの位置が一番左から 5つである場合は
For i = 1 to ThisWorkbook.Worksheets.Count
 Set targetSheet = ThisWorkbook.Worksheets(i)
 ' 処理いろいろ
Next

4番目から 5つであれば
For i = 4 To 8
 Set targetSheet = ThisWorkbook.Worksheets(i)
Next

対象シートのシート名の先頭が必ず "H-" で始まっており、対象外シートは別の文字から始まっているのであれば
For Each targetSheet In ThisWorkbook.Worksheets
 If Left(targetSheet.Name, 2) = "H-" Then
  ' 処理いろいろ
 End If
Next
とか

規則性がぜんぜん無いけれど 5シートの各名前が決まっているのなら、あらかじめ文字列型の配列に対象シートのシート名を入れておき、
For i = 0 To 4
 Set targetSheet = ThisWorkbook.Worksheets(targetNames(i))
Next
とか。
または 対象 5シートの名前を 9つめのシートのセル A1~A5 に書いておけるならば、そのセルの値を読み込んで targetSheet で参照させるとか。

ともかく情報が必要です。

> 説明不足でした。ワークシートが8個ありその内の5つを変数に格納したいのですがtargetSheetで対照とする方法もわかりません。お手数ですがよろしくお願いします。

であるならば、その状態や条件も提示していただかないと的確に回答できませんよ。

8個のシート中、5個の対象シートがどこにあるか決まっていない。or 決まっている。
5個の対象シートの名前には決まった位置に共通する文字があり、残り 3個のシートには無い。
とか、、、

対象 5シートの位置が一番左から 5つである場合は
For i = 1 to...続きを読む

QiTunesでのアートワーク削除

曲のアートワークを削除するにはどうすればいいでしょうか?
ちなみに、私のiTunesは1.0.2verです。

よろしくお願いします。

Aベストアンサー

アルバム単位に編集するなら
(1)Ctrl + Shift + 5 でグリッド表示
(2)アルバムを右クリック または 複数選択
(3)プロパティ
(4)アートワーク のところにチェックをつける
(5)OK

で消えます。


曲単位なら
(1)消したい曲を右クリック
(2)プロパティ
(3)アートワークと書いてあるところをクリック
(4)写真をクリックして、削除

QVBAですべてのワークシートを処理したい

ブック内の全ワークシートに対して同じ処理をするために、

For each ワークシート in Worksheets
~処理~
Next ワークシート

を使ってみたのですが、その時にアクティブになっているシートしか処理されません。たとえば次のようなシンプルなコードでも、同様です。何が抜けているのでしょうか。

Sub allworksheets()
Dim WS As Worksheet
For Each WS In Worksheets
Range("a1") = "123"
Next WS
End Sub

マクロの勉強を始めたばかりで、基本的なことでつまづいてます。よろしくお願い致します。

Aベストアンサー

せっかくオブジェクトをWSに代入しているのですから、
きちんと使ってあげましょう。

誤: Range("a1") = "123"

正: WS.Range("a1") = "123"

Qipod nanoのアートワークについて

ipodnanoをのアートワークについての質問です。

ほとんどの曲にアートワークを設定しているんですが、
その曲のジャケットが表示されず、違う曲のジャケットが表示されてしまいます。
けっこうな数が混乱して表示されてしまう状態です。
プロパティで設定画面を確認してみたんですが、アートワークに違うジャケット入れてある訳じゃないし、解決策がわかりません。
どうすればいいでしょう?アドバイスお願い致します

Aベストアンサー

iPod nanoに手動で曲をいれてませんか?
その場合、一度iiPod nanoの曲を手動で全て削除し、次は自動でアップデートしてみてください。その時、iTunes 環境設定>iPodパネルの「ミュージック」項目で"iPod 上でアルバムのアートワークを表示"でチェックボックスを 選択していることをお確かめください。

iTunesは最新版でしょうか?4.7でこの問題がよく起きるようです。

QWindowsXPでのワークグループ作成について

WindowsXPPro×1、WindowsXPHome×4でワークグループを作成し、ファイルを共有しようとしています。
ワークグループ名:WORKGROUP
コンピュータ名:XPがfileserver,homeエディションが
pc01~pc04
設定の仕方は
マイネットワーク→プロパティ→ホーム/小規模オフィス
→(デフォルトで次へ→デフォルトで次へ)
→コンピュータ名(上記pc01~pc04とfileserver)
→ワークグループ名(WORKGROUP)でお互いが見れるようになり、共有フォルダが使えます。
ただ、1台(XPhomeエディション)だけ上記と同じ操作をやっても、ワークグループ名が「MSHOME」のデフォルトのままで、「WORKGROUP」と入力しても変わりません。
原因とか、何か別の方法とかご存知の方教えてください。

Aベストアンサー

マイコンピュータの右クリックでプロパティを出し、コンピュータ名の変更ボタンからワークグループ名を入力しては?

無論ファイヤーウォールは適切に設定され、相互に繋がる状態で使いましょう。

Qitunesでアルバムのアートワークを取得したい

上記のソフトにamazon album artというソフトがありますがこのソフトはアマゾンからの画像しか取得できないと聞きました。
アマゾンにないアルバムの画像は取得できないということになります。
アマゾン以外からも検索できるソフトはないでしょうか?
WindowsのVoralent Invidiのようなソフトはないのでしょうか?

Aベストアンサー

アマゾンがメインですが、その他にもグーグルイメージからも取得できます。

また「yesasia」も検索リストにありますが、私は使った事がありません。
たぶんアジア圏の楽曲専門でしょう。

蛇足ですがアマゾンも、US、UK、JP、DE、FR、CAと6カ国対応です。

Qある列に並んでいるデータを行列変換して別ワークシートに貼り付け作業の繰

ある列に並んでいるデータを行列変換して別ワークシートに貼り付け作業の繰り返しVBA
OfficeのExcel2007、OS:Windows Vista 多分旧バージョンでも問題ないと思われる。
VBAマクロについて勉強したての状況です。
内容としては ある列に 数値データが8,000件(時により不定期)ほど並んでいるデータを例えば20件を一組として選択して コピーし、行列変換して 別Worksheetの任意のセルを選択して張り付ける。
そして 次のデータ(21列目以下)を20件選択して 行列変換して 貼り付け個所は一行下のセルを選択して張り付ける。これを数値データ列に"null"値が発生するまで 順次繰り返す。

下記は、私が 断片的にに考えているVBAで これらを元に完璧な構文のプログラムを作成すればいいのではと思われますが、私の能力の限界で現時点では後が続きません。

Worksheets.add After:=Worksheets("編集")'"編集"Worksheetを追加

Worksheets("data1").Range(Cells(6,6),(25,6)).Copy
'"data1"WorksheetのデータがセルF6から下にずらっと並んでいる。そこから縦20セル分をコピー
Worksheets("編集1").Range(Cells(1,3)).PasteSpecial Paste:=xlPasteAll, _
Operation:=xlNone, SkipBlanks:= False, Transpose:=True
'行列変換して "編集"Worksheetの"C1"セルを選択して貼り付け

Do While Worksheets("data1").ActiveCell.Value = ""
'F列のセルデータが空白になるまで

Cells(Worksheets("編集").Rows.Count, 1).End(xlUp).Offset(1).Select
'前回の貼り付け場所の下の新規に貼り付ける場所に移動

これら以外に他に複数の変数を定義して 繰り返しループになるようにすればいいと思われますが・・

今のところ基礎編のプログラミングの本を複数回読んでいるが理解できていない状況です。
以上、舌足らずがあると思われますが御教唆のほどよろしくお願いいたします。

ある列に並んでいるデータを行列変換して別ワークシートに貼り付け作業の繰り返しVBA
OfficeのExcel2007、OS:Windows Vista 多分旧バージョンでも問題ないと思われる。
VBAマクロについて勉強したての状況です。
内容としては ある列に 数値データが8,000件(時により不定期)ほど並んでいるデータを例えば20件を一組として選択して コピーし、行列変換して 別Worksheetの任意のセルを選択して張り付ける。
そして 次のデータ(21列目以下)を20件選択して 行列変換して 貼り付け個所は一行下のセルを選択して...続きを読む

Aベストアンサー

できるだけ質問者様のコードを活かすなら、こんな感じでしょうか。

Worksheets.Add After:=Worksheets(Worksheets.Count) '"編集"Worksheetを追加
Worksheets(Worksheets.Count).Name = "編集"
Dim r1 As Long, r2 As Long
r1 = 6
r2 = 1

Do While Worksheets("data1").Cells(r1, 6).Value <> ""
'F列のセルデータが空白になるまで
With Worksheets("data1")
.Range(.Cells(r1, 6), .Cells(r1 + 19, 6)).Copy
End With
'"data1"WorksheetのデータがセルF6から下にずらっと並んでいる。そこから縦20セル分をコピー
Worksheets("編集").Cells(r2, 3).PasteSpecial Paste:=xlPasteAll, _
Operation:=xlNone, SkipBlanks:=False, Transpose:=True
'行列変換して "編集"Worksheetの"C1"セルを選択して貼り付け

r1 = r1 + 20
r2 = r2 + 1
Loop

できるだけ質問者様のコードを活かすなら、こんな感じでしょうか。

Worksheets.Add After:=Worksheets(Worksheets.Count) '"編集"Worksheetを追加
Worksheets(Worksheets.Count).Name = "編集"
Dim r1 As Long, r2 As Long
r1 = 6
r2 = 1

Do While Worksheets("data1").Cells(r1, 6).Value <> ""
'F列のセルデータが空白になるまで
With Worksheets("data1")
.Range(.Cells(r1, 6), .Cells(r1 + 19, 6)).Copy
End With
'"data1"Worksheet...続きを読む

QiTunesのアートワークにドラッグで出来ない

Mac OS X 10.5.8 iTunes9です。

これまで、曲を入れて、その後アートワークにアマゾンなどから好きな画像をドラッグしますと簡単に入っていたのが、今日しようとしたらドラッグ&ドロップでは入らなくなっていました。 どこかをいじった記憶は無いのですが.....

一旦デスクトップなどに置いて、アートワークの画面で追加を押して選択して入れる事は出来ますが、こんな面倒な事をしなくても出来ていたのにな...と思っています。

何が変わったのか... また、ドラッグして簡単に入れる事は出来ないでしょうか。

Aベストアンサー

こちらMac OS X 10.6.1、iTunes 9.0.2という環境ですが、じっさい試してみると、Safariのウインドウから、iTunesの情報ウインドウ>アートワークにドラッグ&ドロップできませんね。
以前できていたのなら、最新アップデート時に発生したバグと考えていいでしょう。iTunesの「iTunes」メニューに「iTunesの意見/感想を送る」があります。これを使って、バグレポートを送れば、将来のバージョンで改善する可能性があります。
現状でいちばん手間がかからないのは、コピー&ペーストでしょう。Safariウインドウで、目的の画像を右クリック(Controlキー+クリック)で、「画像をコピー」。iTunesの情報ウインドウ>アートワークで、アートワークがアクティブになっている状態で、「編集」メニュー「ペースト」を実行すると、アートワークが追加されます。
(アートワークがアクティブになっているかどうかは、アートワークの画像が、青色で囲まれているかどうかで確認できます。)


人気Q&Aランキング