As I said, this is a REAL kludge, but here goes anyway:-
Create a view scheme with the columns as follows;
Album, Album Artist(Auto), Genre, Filename (path)
List as below; cut & past all together without the spaces which are only included for reading convenience. The –[Genre] is for the types of CD’s that I do NOT printout, so it could be just[Genre] and include the ones intended for printout.
-[Genre]=[Club],[Dance],[Deep House],[Electronic],[Electronica],[General Rock],[Hip-Hop],[House],[Indie],[Lounge],[Misc],[New Wave],[Newage],[Phunk],[R&B],[Rap],[Rap; R&B],[Reggae],[Retro Cool],[Techno],[Trance],[Trip Hop],[Trip-Hop]
~limit=-1,1,[Filename (path)]
[Media Type]=[Audio]
Then create 3 Excel macros as follows:-
Sub cover_art()
'Get the cover art for each line entry
'Set ROW1 to height 85.2 to get the alignment correct.
'Then change ROW1 to something smaller, like 22 for printout.
Dim pic_name As String
Set myDocument = Worksheets(1)
Range("g2").Select
For n = 1 To 1000
On Error Resume Next
pic_name = ActiveCell.Formula
If Len(pic_name) < 10 Then GoTo finished
myDocument.Shapes.AddPicture pic_name, True, True, 0, 84.75 * n, 80, 80
ActiveCell.Offset(1, 0).Select
Next n
finished:
End Sub
Sub clean()
'Get rid of exsiting pictures in the spreadsheet.
'Increase the upper limit of 10,000 if too many pictures
For n = 1 To 100000
On Error Resume Next
ActiveSheet.Shapes("Picture " & Str$(n)).Delete
Next n
End Sub
Sub replace()
'This replaces the things that MC changes in its naming convention.
'So far I have found ':', '?' and '"' But there MAY BE OTHERS...
Columns("G:G").Select
Selection.replace What:=":", Replacement:="_", LookAt:=xlPart, SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False
Selection.replace What:="/", Replacement:="_", LookAt:=xlPart, SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False
Selection.replace What:="""", Replacement:="_", LookAt:=xlPart, SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False
' Cannot search and replace '?' as this is a wild card... Have to use the CHR$ value.
' Selection.replace What:="?", Replacement:="_", LookAt:=xlPart, SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False
End Sub
1. From the view list in MC, cut and paste into the spreadsheet. Paste from cell B1, allowing column A to be used for the cover art.
2. Put a formula into each cell in column F to concatenate the folder.jpg to the filename thus:- F2 =E2&"Folder.jpg"
3. Copy the Value from column F to column G (edit, copy, edit, paste special)
4. Run the replace macro.
5. Run the cover_art macro
6. Keep your fingers crossed...
