- Katılım
- 2 Nisan 2015
- Mesajlar
- 6
- Excel Vers. ve Dili
-
2003*2007
türkçe
- Altın Üyelik Bitiş Tarihi
- 20-02-2024
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 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
excel : MS OFFICE PRO PLUS 2016 64BİT dil TÜRKÇE
ayrıca hücre boyutunu değiştirdiğim zaman RESİM tekrar ebtalnadırma yapmıyor. Hatta EXCELde belki 50-100 resim ekliyorum KB olarak da çok küçük. normal şartlarda o kadar resimli bir excel 100-150mb olması lazım ama 800-900kb olarak gözüküyor ebatı
daha önceden kullandığım kod vardı makinaya virüs girdi format atmak zorunda kalmıştım. Bu kod arşivimden buldum
kod:
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Intersect(Target, Range("A1:A1000")) Is Nothing Then Exit Sub
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
excel : MS OFFICE PRO PLUS 2016 64BİT dil TÜRKÇE
ayrıca hücre boyutunu değiştirdiğim zaman RESİM tekrar ebtalnadırma yapmıyor. Hatta EXCELde belki 50-100 resim ekliyorum KB olarak da çok küçük. normal şartlarda o kadar resimli bir excel 100-150mb olması lazım ama 800-900kb olarak gözüküyor ebatı
daha önceden kullandığım kod vardı makinaya virüs girdi format atmak zorunda kalmıştım. Bu kod arşivimden buldum
kod:
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Intersect(Target, Range("A1:A1000")) Is Nothing Then Exit Sub
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
Son düzenleme: