Home |
Search |
Today's Posts |
#1
![]()
Posted to microsoft.public.excel.programming
|
|||
|
|||
![]()
Does anyone have any suggestions on how to insert 3 images into excel with
aligning each positions? Please see following code for detailed description. Does anyone have any suggestions? Thanks in advance for any suggestions Eric Private Sub Worksheet_Change(ByVal Target As Range) Dim myPic As Object Dim dblTop As Double Dim dblLeft As Double Dim dblHeight As Double Dim dblWidth As Double If Target.Address = "$A$1" Then On Error Resume Next Set myPic = ActiveSheet.Pictures(1) On Error GoTo 0 If Not myPic Is Nothing Then myPic.Delete If Range("A1") = 1 Then Set myPic = ActiveSheet.Pictures.Insert("C:\TempPic.JPG") Set myPic = ActiveSheet.Pictures.Insert("C:\TempPic3.JPG") Set myPic = ActiveSheet.Pictures.Insert("C:\TempPic5.JPG") ' I try to insert more code here, but it does not work Else Set myPic = ActiveSheet.Pictures.Insert("C:\TempPic2.JPG") Set myPic = ActiveSheet.Pictures.Insert("C:\TempPic4.JPG") Set myPic = ActiveSheet.Pictures.Insert("C:\TempPic6.JPG") End If dblTop = Cells(10, "B").Top dblLeft = Cells(10, "B").Left dblHeight = Cells(14, "B").Top - Cells(10, "B").Top dblWidth = Cells(10, "D").Left - Cells(10, "B").Left 'Furthermore, I get no idea on how to align 3 different images from following code. With myPic .ShapeRange.LockAspectRatio = msoFalse '/ msoTrue .Top = dblTop .Left = dblLeft .Height = dblHeight .Width = dblWidth End With End If End Sub |
Thread Tools | Search this Thread |
Display Modes | |
|
|
![]() |
||||
Thread | Forum | |||
Excel 2007 insert HTML with images | Excel Programming | |||
insert images/pictures | Excel Programming | |||
Aligning decimal numers to the centre of the cell and aligning dec | Excel Discussion (Misc queries) | |||
help please (VBA to insert images) | Excel Programming | |||
VBA code to insert images in excel sheet | Excel Programming |