I am so new I squeek
I need to put shapes/ autoshapes and small photos in a cell. Like cell( B:2)
How does one control the autoshape or photo properites using VBA?

The easiest way with Excel/VBA is to record a macro (ToolsMacroRecord New
Macro) and see the generated code.
Whilst this code is generally not the most efficient, it gives you a
starting point to see the required syntax/objects to use.

NickHK

"wbntravis" wrote in message
...
I am so new I squeek
I need to put shapes/ autoshapes and small photos in a cell. Like cell(
B:2)
How does one control the autoshape or photo properites using VBA?

Thanks Nick ! That helped show of some of the properties!
( I did not think of it because I had a macro on the tree shape already.)

Since I have more than one tree shape i was kinda looking for a name
property... so I could move different "name"d trees from one cell to another
based
on the players movement.

Here is how 2003 Excel indicates I selected the tree.




"wbntravis" wrote:

I am so new I squeek
I need to put shapes/ autoshapes and small photos in a cell. Like cell( B:2)
How does one control the autoshape or photo properites using VBA?

Hit the wrong key and the prev message posted prematurely.

continue:
Here is how 2003 Excel shows I selected the object:
ActiveSheet.Shapes("Tree").Select

I have more than one "tree" in other cells. I would like
to give the trees different names so I can modify only
that object Ie: move it... or assign a rnd macro to it.

I have read help exhaustedly... thanks again!


"wbntravis" wrote:

Thanks Nick ! That helped show of some of the properties!
( I did not think of it because I had a macro on the tree shape already.)

Since I have more than one tree shape i was kinda looking for a name
property... so I could move different "name"d trees from one cell to another
based
on the players movement.

Here is how 2003 Excel indicates I selected the tree.




"wbntravis" wrote:

I am so new I squeek
I need to put shapes/ autoshapes and small photos in a cell. Like cell( B:2)
How does one control the autoshape or photo properites using VBA?

Something like this ?

Private Sub CommandButton1_Click()
Dim NewTree As Shape
Dim i As Long

For i = 1 To 10
Set NewTree =
ActiveSheet.Shapes.AddShape(msoShapeFlowchartPrede finedProcess, 20 * i,
202.5, 174.75, 84.75)
With NewTree
.Name = "Tree_" & i
End With
Next
End Sub

NickHK

"wbntravis" wrote in message
...
Thanks Nick ! That helped show of some of the properties!
( I did not think of it because I had a macro on the tree shape already.)

Since I have more than one tree shape i was kinda looking for a name
property... so I could move different "name"d trees from one cell to
another
based
on the players movement.

Here is how 2003 Excel indicates I selected the tree.




"wbntravis" wrote:

I am so new I squeek
I need to put shapes/ autoshapes and small photos in a cell. Like
cell( B:2)
How does one control the autoshape or photo properites using VBA?

You are so close! That code produced 10 rectangles here with two smaller
rectangles off to one side for each object that was produced above the
worksheet. (which made ugly looking trees )
There were 10 of these ufos (unitendified flying objects ) to confirm the
for i = 10


so I did a little digging and
found a tree was an autoshape (not sure if that makes a difference)
and the name according to excel is BD18235.wmf (not sure if that makes
a difference. Your coding is interesting and the minute I saw it I almost
fell over to see the .name = Tree & i could do it.

I looked up
"NickHK" wrote:

Something like this ?

Private Sub CommandButton1_Click()
Dim NewTree As Shape
Dim i As Long

For i = 1 To 10
Set NewTree =
ActiveSheet.Shapes.AddShape(msoShapeFlowchartPrede finedProcess, 20 * i,
202.5, 174.75, 84.75)
With NewTree
.Name = "Tree_" & i
End With
Next
End Sub

NickHK

"wbntravis" wrote in message
...
Thanks Nick ! That helped show of some of the properties!
( I did not think of it because I had a macro on the tree shape already.)

Since I have more than one tree shape i was kinda looking for a name
property... so I could move different "name"d trees from one cell to
another
based
on the players movement.

Here is how 2003 Excel indicates I selected the tree.




"wbntravis" wrote:

I am so new I squeek
I need to put shapes/ autoshapes and small photos in a cell. Like
cell( B:2)
How does one control the autoshape or photo properites using VBA?

continued: hit the wrong key again
I looked up
"msoShapeFlowchartPredefinedProcess" to see what that joy was all about
but neither online of offline help wanted to give me anything.

Trust me, we I get this down I will name a tree after you.
Please dont roll your eyes- haha

wbnTravis


"wbntravis" wrote:



You are so close! That code produced 10 rectangles here with two smaller
rectangles off to one side for each object that was produced above the
worksheet. (which made ugly looking trees )
There were 10 of these ufos (unitendified flying objects ) to confirm the
for i = 10


so I did a little digging and
found a tree was an autoshape (not sure if that makes a difference)
and the name according to excel is BD18235.wmf (not sure if that makes
a difference. Your coding is interesting and the minute I saw it I almost
fell over to see the .name = Tree & i could do it.

I looked up
"NickHK" wrote:

Something like this ?

Private Sub CommandButton1_Click()
Dim NewTree As Shape
Dim i As Long

For i = 1 To 10
Set NewTree =
ActiveSheet.Shapes.AddShape(msoShapeFlowchartPrede finedProcess, 20 * i,
202.5, 174.75, 84.75)
With NewTree
.Name = "Tree_" & i
End With
Next
End Sub

NickHK

"wbntravis" wrote in message
...
Thanks Nick ! That helped show of some of the properties!
( I did not think of it because I had a macro on the tree shape already.)

Since I have more than one tree shape i was kinda looking for a name
property... so I could move different "name"d trees from one cell to
another
based
on the players movement.

Here is how 2003 Excel indicates I selected the tree.




"wbntravis" wrote:

I am so new I squeek
I need to put shapes/ autoshapes and small photos in a cell. Like
cell( B:2)
How does one control the autoshape or photo properites using VBA?

I just used that shape, as I didn't waht you meant by "tree". However, try
this. You may have to change the path depending on you installation/version
of Office.

Private Sub CommandButton1_Click()
Dim NewTree As Picture
Dim i As Long

Const TREEFILE As String = "C:\Program Files\Microsoft Office\Office
XP\media\office10\AutoShap\BD18253_.wmf"

For i = 1 To 10
Set NewTree = ActiveSheet.Pictures.Insert(TREEFILE)
With NewTree
.Left = Cells(10, i * 2).Left
.Name = "Tree_" & i
End With
Next
End Sub

NickHK

"wbntravis" wrote in message
...
continued: hit the wrong key again
I looked up
"msoShapeFlowchartPredefinedProcess" to see what that joy was all about
but neither online of offline help wanted to give me anything.

Trust me, we I get this down I will name a tree after you.
Please dont roll your eyes- haha

wbnTravis


"wbntravis" wrote:



You are so close! That code produced 10 rectangles here with two
smaller
rectangles off to one side for each object that was produced above the
worksheet. (which made ugly looking trees )
There were 10 of these ufos (unitendified flying objects ) to confirm
the
for i = 10


so I did a little digging and
found a tree was an autoshape (not sure if that makes a difference)
and the name according to excel is BD18235.wmf (not sure if that makes
a difference. Your coding is interesting and the minute I saw it I
almost
fell over to see the .name = Tree & i could do it.

I looked up
"NickHK" wrote:

Something like this ?

Private Sub CommandButton1_Click()
Dim NewTree As Shape
Dim i As Long

For i = 1 To 10
Set NewTree =
ActiveSheet.Shapes.AddShape(msoShapeFlowchartPrede finedProcess, 20 *
i,
202.5, 174.75, 84.75)
With NewTree
.Name = "Tree_" & i
End With
Next
End Sub

NickHK

"wbntravis" wrote in message
...
Thanks Nick ! That helped show of some of the properties!
( I did not think of it because I had a macro on the tree shape
already.)

Since I have more than one tree shape i was kinda looking for a name
property... so I could move different "name"d trees from one cell to
another
based
on the players movement.

Here is how 2003 Excel indicates I selected the tree.




"wbntravis" wrote:

I am so new I squeek
I need to put shapes/ autoshapes and small photos in a cell. Like
cell( B:2)
How does one control the autoshape or photo properites using VBA?