Sub Linked()
Dim s As Shape
With [b5]
Set s = .Parent.Shapes.AddPicture("D:\Documents\!Pictures\ marg_v1.png",
True, True, .Left, .Top, .Width, .Height)
End With
With s
.ScaleHeight 0.5, msoTrue
.ScaleWidth 0.5, msoTrue
End With
End Sub

demo shows insertion with cell's size then scales to 50% of original
(saved) size

look in VBA help for meaning of arguments.

cheerz!


keepITcool

< email : keepitcool chello nl (with @ and .)
< homepage: http://members.chello.nl/keepitcool


"Budiono" wrote:

i want to insert picture from disk to excel using visual basic 6. i've
use following code:

dim oApp As New Excel.Application
dim oWkbk As Excel.Workbook
dim oSheet As Excel.Worksheet

ActiveCell.Range("A100").Activate
ActiveSheet.Pictures.Insert ("C:\TEMP.BMP")

the problem is, the picture is to large and i want to insert that
picture only from cell A100 to E120.
which function i should use?

any help would be greatly appreciate..
thanks