イラストレーターのアイテムを格納する class を作り、プロパティとしてアイテムの情報を取得させる。 Dim PName As Object Dim PNameStr As String '条件に合う文字列を「PName」に格納。 PName = From c As IllData1 In iData Where (c.Cate = 3) AndAlso …