Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
How to retrieve the name of a picture within a worksheet?
How can I find out or edit the object name of a picture that I have added as
a picture file on a worksheet ? Oscar |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
How to retrieve the name of a picture within a worksheet?
Depends on what the picture is. If it is a picture object (if you did
insert=Picture = from file it would be) Activesheet.Pictures(1).Name -- Regards, Tom Ogilvy Oscar wrote in message ll.nl... How can I find out or edit the object name of a picture that I have added as a picture file on a worksheet ? Oscar |
#3
Posted to microsoft.public.excel.programming
|
|||
|
|||
How to retrieve the name of a picture within a worksheet?
Hi Oscar,
Only I know is looping... Code ------------------- Const msoPicture As Long = 13 Dim obj As Object For Each obj In ActiveSheet.Shapes If obj.Type = msoPicture Then MsgBox obj.Name End If Next ------------------- -- Message posted from http://www.ExcelForum.com |
#4
Posted to microsoft.public.excel.programming
|
|||
|
|||
How to retrieve the name of a picture within a worksheet?
This is looping to find the cell at a specific location:
Dave Peterson, posted in programming, 2002-06-16 Sub testme3() Dim myCell As Range, myShape As Shape Set myCell = Range("A1") For Each myShape In ActiveSheet.Shapes If Intersect(myShape.TopLeftCell, myCell) Is Nothing Then 'do nothing Else MsgBox myShape.Name Exit For End If Next myShape End Sub Some other possibilities such as name of shapes in a selection, and additonal information on Shapes can be found in http://www.mvps.org/dmcritchie/excel/shapes.htm -- --- HTH, David McRitchie, Microsoft MVP - Excel [site changed Nov. 2001] My Excel Pages: http://www.mvps.org/dmcritchie/excel/excel.htm Search Page: http://www.mvps.org/dmcritchie/excel/search.htm "Colo " wrote in message ... Hi Oscar, Only I know is looping... Code: -------------------- Const msoPicture As Long = 13 Dim obj As Object For Each obj In ActiveSheet.Shapes If obj.Type = msoPicture Then MsgBox obj.Name End If Next -------------------- --- Message posted from http://www.ExcelForum.com/ |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
How can i retrieve a worksheet from another workbook using VBA | Excel Discussion (Misc queries) | |||
I NEED TO USE A LOOKUP FUNCT. TO RETRIEVE A PICTURE FROM A HYPERL | Excel Worksheet Functions | |||
retrieve data from worksheet | Excel Worksheet Functions | |||
how do i retrieve a deleted worksheet | New Users to Excel | |||
How to extract a picture from an Excel worksheet into a picture fi | Excel Discussion (Misc queries) |