- Katılım
- 14 Kasım 2009
- Mesajlar
- 57
- Excel Vers. ve Dili
- excel 2007
Selamlar
Ürün kodu yazdığımda ürün resmi getiren bir excel formatı yine bu platformdan Mehmet Gürten beyin yardımı ile hazırlamıştık. Bu format Windows’ta çok güzel çalışıyor fakat Mac’de resimleri getirmiyor. Bir kaç araştırma yaptığımda MAC lerde resim getirme kodlarının farklı olduğundan bahsediliyor. Macro konusunda çok teknik bilgiye sahip olmadığım için pek bir şey yapamadım. Bu konuda yarıdımcı olabilirseniz çok sevinirim. Kodların tamamı aşağıdaki gibidir. Eklemek isterim kodlarda † ve ô gibi sembollerden kaynaklı olabileceğini düşünerek ı ve i olarak değiştirdim ama bir şey değişmedi.
--------------------------------------------------------------
Dim res As Picture
Private Sub Image1_Click()
End Sub
Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, [c:c]) Is Nothing Then Exit Sub
'Hata Kontrolô
'Resimleri Sil
For Each res In Pictures
resimad† = res.Name
If Left(res.Name, 5) <> "Sabit" Then
res.Delete
End If
Next res
'ActiveSheet.Pictures.Delete
'Resim Yolunun Bulunmas†
Dim ResimYolu As Variant
Dim Resim As Object
For Sat†r = 14 To 30
On Error Resume Next
ResimYolu = ActiveWorkbook.Path & "\RESIMLER\URUNLER\" & Range("c" & Sat†r) & ".jpg"
'Resim Olu¤tur
Set Resim = ActiveSheet.Pictures.Insert(ResimYolu)
If Err.Number < 1 Then
'Resim Boyutland†r
With Range("b" & Sat†r)
Resim.Top = .Top
Resim.Left = .Left
Resim.Height = .Height
Resim.Width = .Width
End With
End If
Err.Clear
Next Sat†r
For Sat†r = 14 To 30
On Error Resume Next
ResimYolu = ActiveWorkbook.Path & "\RESIMLER\MARKALAR\" & Range("E" & Sat†r) & ".jpg"
'Resim Olu¤tur
Set Resim = ActiveSheet.Pictures.Insert(ResimYolu)
If Err.Number < 1 Then
'Resim Boyutland†r
With Range("E" & Sat†r)
Resim.Top = .Top
Resim.Left = .Left
Resim.Height = .Height
Resim.Width = .Width
End With
End If
Err.Clear
Next Sat†r
End Sub
--------------------------------------------------------------
Ürün kodu yazdığımda ürün resmi getiren bir excel formatı yine bu platformdan Mehmet Gürten beyin yardımı ile hazırlamıştık. Bu format Windows’ta çok güzel çalışıyor fakat Mac’de resimleri getirmiyor. Bir kaç araştırma yaptığımda MAC lerde resim getirme kodlarının farklı olduğundan bahsediliyor. Macro konusunda çok teknik bilgiye sahip olmadığım için pek bir şey yapamadım. Bu konuda yarıdımcı olabilirseniz çok sevinirim. Kodların tamamı aşağıdaki gibidir. Eklemek isterim kodlarda † ve ô gibi sembollerden kaynaklı olabileceğini düşünerek ı ve i olarak değiştirdim ama bir şey değişmedi.
--------------------------------------------------------------
Dim res As Picture
Private Sub Image1_Click()
End Sub
Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, [c:c]) Is Nothing Then Exit Sub
'Hata Kontrolô
'Resimleri Sil
For Each res In Pictures
resimad† = res.Name
If Left(res.Name, 5) <> "Sabit" Then
res.Delete
End If
Next res
'ActiveSheet.Pictures.Delete
'Resim Yolunun Bulunmas†
Dim ResimYolu As Variant
Dim Resim As Object
For Sat†r = 14 To 30
On Error Resume Next
ResimYolu = ActiveWorkbook.Path & "\RESIMLER\URUNLER\" & Range("c" & Sat†r) & ".jpg"
'Resim Olu¤tur
Set Resim = ActiveSheet.Pictures.Insert(ResimYolu)
If Err.Number < 1 Then
'Resim Boyutland†r
With Range("b" & Sat†r)
Resim.Top = .Top
Resim.Left = .Left
Resim.Height = .Height
Resim.Width = .Width
End With
End If
Err.Clear
Next Sat†r
For Sat†r = 14 To 30
On Error Resume Next
ResimYolu = ActiveWorkbook.Path & "\RESIMLER\MARKALAR\" & Range("E" & Sat†r) & ".jpg"
'Resim Olu¤tur
Set Resim = ActiveSheet.Pictures.Insert(ResimYolu)
If Err.Number < 1 Then
'Resim Boyutland†r
With Range("E" & Sat†r)
Resim.Top = .Top
Resim.Left = .Left
Resim.Height = .Height
Resim.Width = .Width
End With
End If
Err.Clear
Next Sat†r
End Sub
--------------------------------------------------------------