Açıklamaya Resim Getirme D Sürücüsünden

[ZorBey_]

Merhaba İyi Çalışmalar

Sizden Ricam
İsimler Sayfasının Kod Bölümdeki Makro
Excel Dosyası İle Resimler Ayni Klasör İçinde olursa
Resimleri Açıklamaya Getiriyor
Fakat İstenen Bu Değil
///////////////////////////////////////////
Personel Klasörü D Sürücüsünde Olmalı
Excel Dosyası Personel Klasörü İçinde Olmamalı
Örnek = Masa Üstünde
İsimler Sayfasının Kod Bölümdeki
Bu Makroyu D Sürücüsünden Resimleri Alması
ve Açıklamada Gösterebilmesi İçin Değiştirebilirmiyiz

Şimdiden Teşekkür Ederim
İyi Çalışmalar

 

[halit3]

Merhaba İyi Çalışmalar

Sizden Ricam
İsimler Sayfasının Kod Bölümdeki Makro
Excel Dosyası İle Resimler Ayni Klasör İçinde olursa
Resimleri Açıklamaya Getiriyor
Fakat İstenen Bu Değil
///////////////////////////////////////////
Personel Klasörü D Sürücüsünde Olmalı
Excel Dosyası Personel Klasörü İçinde Olmamalı
Örnek = Masa Üstünde
İsimler Sayfasının Kod Bölümdeki
Bu Makroyu D Sürücüsünden Resimleri Alması
ve Açıklamada Gösterebilmesi İçin Değiştirebilirmiyiz

Şimdiden Teşekkür Ederim
İyi Çalışmalar

D sürücüsünün içinde Personel klasörü mutlaka olmalı ve resimler Personel klasörünün içinde olmalı

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim hcr As Range
Dim c As Integer
Dim yuk As Double, gen As Double
Columns("B").ClearComments
If Intersect(Target, [B2:B1500]) Is Nothing Then Exit Sub
If Target.Count > 5 Then Exit Sub
With Cells(Target.Row, "B")
.AddComment
.Comment.Visible = True
.Comment.Shape.Select True
End With
On Error Resume Next
Selection.ShapeRange.Fill.UserPicture [COLOR=red]"D:\Personel[/COLOR][COLOR=red]\"[/COLOR] & Cells(Target.Row, "B") & ".jpg"
Selection.Height = 100 'yuk
Selection.Width = 100 'gen
Comment.Visible = False
End Sub

 

[ZorBey_]

Halit Bey Çok Teşekkür Ederim
Kod lar İstediğim gibi çalışlıyor
Sağ Olun Var Olun
Allah Razı Olsun
İyi Akşamlar

 

[halit3]

Halit Bey Çok Teşekkür Ederim
Kod lar İstediğim gibi çalışlıyor
Sağ Olun Var Olun
Allah Razı Olsun
İyi Akşamlar

iyi çalışmalar