İki Ayrı hücreye resim ekleme

[huseyinvurkan]

İki Ayrı hücreye resim ekleme ve boyutlandırma

Merhaba arkadaşlar Form içinde yaptığım araştırmalarda ulaşıp düzenlediğim ekteki dosyada A1 hücresine çift tıklayarak hücre boyutunda resim ekleyebiliyorum. Ancak H1 hücresine resim ekleyip hücre boyutuna getiremiyorum. Kodlardan anlamadığım için işin içinden çıkamadım. yardımcı olursanız sevinirim.

 

[huseyinvurkan]

sayın ustalarım bu konu dikkatinizi çekemedi galiba

 

[huseyinvurkan]

Bu konuda hala yardım bekliyorum.

 

[tahsinanarat]

Sn. huseyinvurkan Aşağıdaki kodları deneyiniz

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Dim sPicture As String, pic As Picture
sPicture = Application.GetOpenFilename _
("Pictures (*.gif; *.jpg; *.bmp; *.tif), *.gif; *.jpg; *.bmp; *.tif", _
, "Select Picture to Import")
If sPicture = "False" Then Exit Sub
Set pic = ActiveSheet.Pictures.Insert(sPicture)
With pic
.ShapeRange.LockAspectRatio = msoFalse
.Height = Target.Offset(0, 0).MergeArea.Height
.Width = Target.Offset(0, 0).MergeArea.Width
.Top = ActiveCell.Top
.Left = ActiveCell.Left
.Placement = xlMoveAndSize
End With
Set pic = Nothing
Range("F1").Select
End Sub

 

[sekhil]

çok teşekkürler..

 

[sekhil]

merhabalar sadede belirttiğimiz sütunda çift tıklama çalışsın istiyorum
bunu nasıl yaparım
örneğin: a sütünunda çift tıklıyosam formül devreye girsin b c d e ... diğerlerinde çalışmasın

şimdiden teşekkürler