Re: How to copy a drawing image between sheets

Hi Peter,

I would like to try your beta test. I am not sure what is the beta test
really about, so could you tell me how to do it?
My eamil: yang0112@xxxxxxxxxxxxxxxxxxxx
Have a nice day!

Clara
--
thank you so much for your help


"Peter T" wrote:

Hi Clara,

In line -

Picture 1 is the name which is given by Excel, like textbox1 which is
given
by excel when it is dragged and dropped to a MSForm, but the name textbox1
can be changed inside the property dialgoue at design time, so my question
is
whether it is possible to change a picture object's name at desing mode
not
using code.

It's only with ActiveX objects that you change properties in the VBE, such
as controls that go on a userform and controls from the 'Controls toolbox'
toolbar for worksheets.

To manually change the name of a Shape or any Drawingobject such as an
inserted picture, select the shape. Then enter the new name in the 'Names
box' left of the input-bar.

Thank you so much for your all replies! By the way, Could you tell me how
are you using Excel, what kind of development job are you doing? Please
ignore it if you feel uncomfortable to answer them?

As it happens I do have quite a large app in development. If you are not
afraid of beta testing you would be most welcome to try it! If interested
contact me for more details -
pmbthornton gmail com (include the at & dot)

Have a wonderful weekend!

Clara

Thanks, you too.

Regards,
Peter T



"Peter T" wrote:

Hi again,

If I follow, you want to change the name of the object named "Picture 1"
to
"Maple".

Any of these should work

ws.Shapes("Picture 1").name = "Maple"
ws.DrawingObjects("Picture 1").name = "Maple"
ws.Pictures("Picture 1").name = "Maple"

If you're not sure of the name eg just inserted or copied a picture with
code -

ws.Shapes(ws.Shapes.Count).Name = "Maple"
(or use DrawingObjects or Pictures)

If you copy the object named "Maple" to another *** that already has a
similarly named object, contrary to what one might expect the copied
object's name is not changed to say "Maple(1)". IOW you could end up
with
two similarly named objects on the ***, something to what out with
ambiguity trying to reference the named object in future.

Excel doesn't provide a way to access the picture's property
dialgoue like the form controls do

With a Picture object selected, View > Toolbars > Picture

In future when a Picture is selected, as occurs just after Insert >
Picture,
the Picture Toolbar should appear (and disappears when the picture is
deselected).

Not sure if the above clarifies your question (no pun intended).

Regards,
Peter T

"clara" <clara@xxxxxxxxxxxxxxxxxxxxxxxxx> wrote in message
news:222C6636-6DD8-46D2-A668-9FB2B35E00F3@xxxxxxxxxxxxxxxx
Hi Peter,

I have a Maple logon on left top of my *** and I would like to find
a
way
to assign a name ,"Maple" ,to it , so in my code I can use string
"Maple"
as
a reference to it.
so I no longer have to user "Picture 1" The real problem is when I
insert
the picture, Excel doesn't provide a way to access the picture's
property
dialgoue like the form controls do, so I want to ask is it possible to
assing
the picture's name in so called desing mode?

Thank you for your answer to my first question.

Clara
--
thank you so much for your help


"Peter T" wrote:

1. If you only want to copy the one Picture you could equally use
DrawingObject or Picture object types, no difference assuming of
course
you
want to deal with a Picture. If you are doing something with
multiple
Pictures I find it much easier to use the Pictures collection. It
kind
of
acts like a filter to the DrawingObjects to return only Pictures. In
the
example what could be easier than -

wsSource.Pictures.Copy

vs - all the following to do same thing -

Dim shp As Shape
Dim i As Long

if wsSource.shapes.count = 0 then exit sub
ReDim arr(1 To wsSource.Shapes.Count)

For Each shp In wsSource.Shapes
If shp.Type = msoPicture Then
i = i + 1
arr(i) = shp.DrawingObject.ZOrder
End If
Next
if i then
ReDim Preserve arr(1 To i)
wsSource.DrawingObjects(arr).Copy
else
' no pictures
end if

2. I don't quite follow what you are asking. If you declare pic as
Picture,
then type pic. you should see the intellisence as soon as you type
the
dot.

Set pic = Active***.Pictures(1)
pic.Duplicate
With pic
..Left = .Left + .Width
End With

You mentioned buttons, similarly Button and Buttons are hidden
subset of
the
DrawingObjects collection
Dim but as Button
for each but in Active***.Buttons
debug.? but.caption

Regards,
Peter T


"clara" <clara@xxxxxxxxxxxxxxxxxxxxxxxxx> wrote in message
news:EEF20577-A707-4A71-9E3F-17F0E77255B7@xxxxxxxxxxxxxxxx
Hi Peter,

Your code works very well. But I still have two questions to ask:

1.why do you not use the DrawingObject bridge the Work*** object
and
Pictures collection
2.How can I chage the picure objec in Design Mode, I mean I can
view
the
property of the object like a button or a work***.

Thank you very much

Clara
--
thank you so much for your help


"Peter T" wrote:

Picture and Pictures is a 'hidden' object and collection at the
DrawingObject level, should work fine in xl2000.

Type don't paste -
Dim pic as picture
After pressing Enter picture will revert to Picture

In a panel object browser F2 right click and select 'Show Hidden
Members'

Did you try the macros.

Regards,
Peter T

"clara" <clara@xxxxxxxxxxxxxxxxxxxxxxxxx> wrote in message
news:34B8E69F-BCF6-438C-851E-1525EB10DB0D@xxxxxxxxxxxxxxxx
Hi Peter,

Thanks for your code, unfortunately, I am using Excel 2000 and
I
can
not
find Pictures property of object Work***.

Clara
--
thank you so much for your help


"Peter T" wrote:

Hi Clara,

It's not clear if you want to copy individual pictures or
all
pictures
from
one *** to another. Here's a pair of macros to do both -

Sub CopyAllPictures()
Dim r As Long, c As Long
Dim wsSource As Work***
Dim wsDest As Work***
Dim pic As Picture

Set wsSource = Worksheets("Sheet1")
Set wsDest = Worksheets("Sheet2")

r = wsSource.Rows.Count
c = wsSource.Columns.Count

For Each pic In wsSource.Pictures
With pic.TopLeftCell
If .Row < r Then r = .Row
If .Column < c Then c = .Column
End With
Next

wsDest.Activate
wsDest.Cells(r, c).Activate

wsSource.Pictures.Copy
wsDest.Paste

wsDest.Cells(r, c).Activate

End Sub

Sub CopyOnePicture()
Dim wsSource As Work***
Dim wsDest As Work***

Set wsSource = Worksheets("Sheet1")
Set wsDest = Worksheets("Sheet2")

Set pic = wsSource.Pictures("Picture 1")

pic.Copy
wsDest.Paste

With wsDest.Pictures(wsDest.Pictures.Count)
.Left = pic.Left
.Top = pic.Top
End With

End Sub

Regards,
Peter T

"clara" <clara@xxxxxxxxxxxxxxxxxxxxxxxxx> wrote in message
news:A2B0884C-B70B-4D33-B0BB-62A22FC6FB53@xxxxxxxxxxxxxxxx
Hi all

while copying data, I want to copy images between sheets.
How
can
I do
it?


Clara

thank you so much for your help

.