Arkadaşlar şimdi bu kod ile ürün kodunun üstüne geldiğinde metin kutusuna bilgisayarımda kayıtlı olan resmi açıyor şimdi benim yapmak istediğim metin kutusundaki resmin altına bi resim daha eklemek bu resim excel dosyasında kamera ile oluşturulmuş resim resim adıda ürün kod la aynı bu kodun altında onuda çağırmam gerekiyor yani koda gelince iki resim açılması gerekiyor biri dosyadaki diğeride excelde oluşturduğum resim yardımlarınızı bekliyorum çok acil...
Kod:
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim yuk As Double, gen As Double
son = Worksheets(ActiveSheet.Name).Cells(1, Columns.Count).End(xlToLeft).Column
Columns(son).ClearComments
If InStr(Target.Address, ":") > 0 Or InStr(Target.Address, ",") > 0 Then Exit Sub
If Target.Value = "" Then Exit Sub
With Cells(Target.Row, son)
.AddComment
.Comment.Visible = True
.Comment.Shape.Select True
End With
On Error Resume Next
Selection.ShapeRange.Fill.UserPicture ThisWorkbook.Path & "\Resimler\" & Cells(Target.Row, son) & ".bmp"
Selection.Height = 250 'yuk
Selection.Width = 350 'gen
If ActiveCell.Top - ActiveWindow.VisibleRange.Top + Selection.Height > ActiveWindow.VisibleRange.Height Then
Selection.Top = Selection.Top - Selection.Height
End If
Target.Select
End Sub