Addin
Hi,
I have a workbook that I have used as an addin, how do I refer to it to do something i.e. if I have an image in the workbook in sheet1 how do I copy this to the active workbook? Thanks for any help! |
Addin
You can use it just like any other workbook (well, almost). But in this case,
it's true. Option Explicit Sub testme() Dim myFromPict As Picture Dim myToPict As Picture Dim myAspectRatio As Double Set myFromPict _ = Workbooks("book1.xla").Worksheets("Sheet1").Pictur es("Picture 1") myFromPict.Copy With ActiveSheet .Paste Set myToPict = .Pictures(.Pictures.Count) 'last one added With myToPict myAspectRatio = .Width / .Height End With myToPict.ShapeRange.LockAspectRatio = msoTrue myToPict.Left = .Range("A1").Left myToPict.Top = .Range("A1").Top myToPict.Height = .Range("a1:a5").Height With myToPict .Width = myAspectRatio * .Height End With End With End Sub Excel User wrote: Hi, I have a workbook that I have used as an addin, how do I refer to it to do something i.e. if I have an image in the workbook in sheet1 how do I copy this to the active workbook? Thanks for any help! -- Dave Peterson |
Addin
Dave,
Cool - thanks for that !! Regards, "Dave Peterson" wrote in message ... You can use it just like any other workbook (well, almost). But in this case, it's true. Option Explicit Sub testme() Dim myFromPict As Picture Dim myToPict As Picture Dim myAspectRatio As Double Set myFromPict _ = Workbooks("book1.xla").Worksheets("Sheet1").Pictur es("Picture 1") myFromPict.Copy With ActiveSheet .Paste Set myToPict = .Pictures(.Pictures.Count) 'last one added With myToPict myAspectRatio = .Width / .Height End With myToPict.ShapeRange.LockAspectRatio = msoTrue myToPict.Left = .Range("A1").Left myToPict.Top = .Range("A1").Top myToPict.Height = .Range("a1:a5").Height With myToPict .Width = myAspectRatio * .Height End With End With End Sub Excel User wrote: Hi, I have a workbook that I have used as an addin, how do I refer to it to do something i.e. if I have an image in the workbook in sheet1 how do I copy this to the active workbook? Thanks for any help! -- Dave Peterson |
All times are GMT +1. The time now is 05:08 AM. |
Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
ExcelBanter.com