Aligning shapes in the Cell

[gnaga]

I would like to draw a shape (for ex. Smily Face) in a cell and want to align with the cell like formating a text in the cell. Horizontally and vertically center and if cell changes this (shape) also shoud get adjust it to the cell size. Is this possible?

 

[Todd Bardoni]

On your Drawing toolbar, goto Draw. There are many options for aligning autoshapes in there.

 

[tusharm]

Objects in XL do not fit into a cell; instead, they 'float' in a layer above the cells layer. Consequently, it is not possible -- without an incredible amount of work -- to make an object appear as though it is part of the text within a cell.

That said, XL does support some rudimentary shape position and size relative to the underlying cell. Double click the object and select the Properties tab.

I would like to draw a shape (for ex. Smily Face) in a cell and want to align with the cell like formating a text in the cell. Horizontally and vertically center and if cell changes this (shape) also shoud get adjust it to the cell size. Is this possible?

 

[gnaga]

Thanks for both of you.

In Draw option in the drawing toolbar has some options for aligning the shape but it is not gettting enabled even I select the shape object. I do not know how to make them enable.

Tushar, If I copy & paste an exisiting shape, it is not getting pasted into my deisred location but close to the copied shape. How to move this shape object into a desired location in the worksheet?

 

[RalphA]

For a shape taken created by using the Excel Drawing toolbar, or for an image or picture that has been pasted, click on top of the shape or picture. You should see the eight little sizing squares, and the cursor turns into a four-arrow shape. Just click and hold down the left mouse button, and drag the shape where you want it, then, release the mouse button. That's it!

 

[gnaga]

Ralph Thanks. I am aware of the technique you have suggested. I wanted to copy the shape or image and then I want to paste it in a location thorugh VBA. Is the worksheet has any dimension based on pixels to place the image into a particular location?

 

[tusharm]

Sub testIt()
    With ActiveSheet.Shapes(1)
    .Height = .Height / 2
    .Width = .Width / 2
    .Left = Range("c1").Left
    .Top = Range("c1").Top
        End With
    End Sub

 

[gnaga]

Tushar Thank you very much. This is the one I was looking for. Now I can manipulate with this to complete my work.

 

[CatyH]

Sub testIt()
    With ActiveSheet.Shapes(1)
    .Height = .Height / 2
    .Width = .Width / 2
    .Left = Range("c1").Left
    .Top = Range("c1").Top
        End With
    End Sub

Perfect! this is also just what I needed, Tusharm, thank you!