Makro ile eklenmiş resim başka pc'de görünmüyor

[isayaman]

Merhabalar arkadaşlar benim sorum başlıktanda anlasılacağı gibi makro ile excel dosyama resim ekliyorum fakat dosyayı baska bir bilgisayara gönderdiğimde resimler görünmüyor.

benim resim eklemek için kullandığım makro kodu :

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


Resimlerin başka bilgisayarlarda görünmesi için ne yapabiliriz. Şimdiden teşekkürler

 

[halit3]

Merhabalar arkadaşlar benim sorum başlıktanda anlasılacağı gibi makro ile excel dosyama resim ekliyorum fakat dosyayı baska bir bilgisayara gönderdiğimde resimler görünmüyor.

benim resim eklemek için kullandığım makro kodu :

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


Resimlerin başka bilgisayarlarda görünmesi için ne yapabiliriz. Şimdiden teşekkürler

Profilinizde excelin hangi versiyonunu kullandığınız yazmıyor.

 

[isayaman]

Office 2010 Kullanıyorum Halit Bey.

 

[Merhum İdris SERDAR]

.

Her ne kadar orada soruyu soran arkadaş, geri dönüş yapma zahmetinde bulunmamaşsa da yine de siz buradaki 34 No'lu mesajıma bakın.

http://www.excel.web.tr/f48/veriye-gore-resim-cekmek-t139924.html


.

 

[halit3]

Office 2010 Kullanıyorum Halit Bey.

Alternatif olsun

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
ActiveSheet.Shapes.AddPicture sPicture, msoFalse, msoCTrue, ActiveCell.Left + 2, ActiveCell.Top + 2, ActiveCell.Width - 4, ActiveCell.Height - 4
Set pic = Nothing

End Sub