kapalı dosyadan resim alma

[airborne]

1-aşağıdaki kodları forumda gezerken buldum ve user form üzerinde uygulamaya çalıştım ama olmadı. bir commandbuton yardımı ile c'nin içerisindeki resim klasöründe bulunan resimlerden her birisini bir kayıda atamak istiyorum. ama bir türlü olmuyar. nasıl bir düzeltme yapmam lazım
Private Sub CommandButton7_Click()
Dim MyChart As Chart
Dim TempFile As String
TempFile = "Temp.jpg"
Sheets("Sayfa3").Shapes(MyShape).CopyPicture xlScreen, xlBitmap
Set MyChart = ActiveSheet.ChartObjects.Add(1, 1, 30, 30).Chart
With MyChart
.Paste
.Export TempFile
.Parent.Delete
End With
Image1.Picture = LoadPicture(TempFile)
Kill TempFile
Set MyChart = Nothing
ThisWorkbook.Save
End Sub

2- e sütununda birden fazla 9/A, birden fazla 9/B, yine birden fazla 10-A gibi sınıflar var bunları nasıl comboboxta süzerek tek kayıt halinde 9/A, 9/B, 10-A gibi gösterebilirim