 
    
    
 
	
	
		
		
	
	
	
	
		
	
	
		
			
- 
	
	
		
		
			
				
				
				
					Solved: Inserting a photo
				
					
						
							I am trying to make some changes from excel 2007 on my PC to MAC 2011
 I was using this piece below to insert photos on my PC and want to know if this will also be compatible with MAC
 
 [vba]Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
 If Not Intersect(Range("D7"), Target) Is Nothing Then
 Cancel = True ' Don't perform the standard action
 ' Your code here; Target is the cell being double-clicked
 'This will insert photos into merged cells
 Dim Pic As Excel.Picture
 Dim PicLocation As String
 Dim MyRange As Range
 PicLocation = Application.GetOpenFilename(FileFilter:="Pic Files (*.jpg;*.bmp), *.jpg;*.bmp", Title:="Browse to select a picture")
 If PicLocation = "False" Then Exit Sub
 Set Pic = Me.Pictures.Insert(PicLocation)
 With Pic.ShapeRange
 .Left = Target.Left
 .Top = Target.Top
 .LockAspectRatio = msoFalse
 .ZOrder msoBringForward
 If .Width > .Height Then
 .Width = Target.Width
 If .Height > Target.Height Then .Height = Target.Height
 Else
 .Height = Target.Height
 If .Width > Target.Width Then .Width = Target.Width
 End If
 End With
 With Pic
 .Placement = xlMoveAndSize
 .PrintObject = True
 End With
 End If
 End Sub
 [/vba]
 
 
 
 
 
 
 
 
	
	
	
	
	
	
	
	
	
	
	
	
		
		
			
				 Posting Permissions
				Posting Permissions
			
			
				
	
		- You may not post new threads
- You may not post replies
- You may not post attachments
- You may not edit your posts
-  
Forum Rules