kolay gelsin. bu forumdan öğrendiğim bir makro ile bilgisayarımdan excele satırın içine tam sığan fotoğraflar yüklüyorum ama dosyayı kaydedip başka birine gönderdiğimde ya da başka bir gün girdiğimde bağlantılı resim görüntülenemiyor silinmiş taşınmış olabilir gibi şeyler söylüyor.
resimlerimin bağlantılı değil de direk excel dosyasına kayıtlı olmasını istiyorum ki başkalarıyla direk resimli halini paylaşabileyim.
kullandığım makro aşağıda şimdiden teşekkür ederim
Sub InsertPicture()
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 = ActiveCell.Height
.Width = ActiveCell.Width
.Top = ActiveCell.Top
.Left = ActiveCell.Left
.Placement = xlMoveAndSize
End With
Set pic = Nothing
End Sub
resimlerimin bağlantılı değil de direk excel dosyasına kayıtlı olmasını istiyorum ki başkalarıyla direk resimli halini paylaşabileyim.
kullandığım makro aşağıda şimdiden teşekkür ederim
Sub InsertPicture()
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 = ActiveCell.Height
.Width = ActiveCell.Width
.Top = ActiveCell.Top
.Left = ActiveCell.Left
.Placement = xlMoveAndSize
End With
Set pic = Nothing
End Sub