How do i select an inserted image.
 

Hi.

I need to select an allready inserted image and align it to a cell, But i
can´t make my code works.
What am i doing wrong???

Thansk in advance
SpeeD

Dim myPict As Picture
With ActiveSheet.Range("p2")
Set myPict = ActiveSheet.Shapes("Picture18")
myPict.Top = .Top
myPict.Left = .Left - 50
myPict.Placement = xlMove
End With

How do i select an inserted image.
 

Please ignore this post. It´s duplicated due to the Posting system incorrect
ERROR messege.

SpeeD

How do i select an inserted image.
 

Please ignore this post. It´s duplicated due to the Posting system incorrect
ERROR messege.

SpeeD

How do i select an inserted image.
 

Please ignore this post. It´s duplicated due to the Posting system incorrect
ERROR messege.

SpeeD

How do i select an inserted image.
 

Hi,

Try this

Note by default Excel wil put a space in Picture 18 and if your picture has
that then so must the code.

Dim myPict As Picture
With ActiveSheet.Range("P2")
Set myPict = .Parent.Pictures("Picture18")
myPict.Top = .Top
myPict.Left = .Left - 50
myPict.Placement = xlMoveAndSize
End With


Mike


"SpeeD" wrote:

Hi.

I need to select an allready inserted image and align it to a cell, But i
can´t make my code works.
What am i doing wrong???

Thansk in advance
SpeeD

Dim myPict As Picture
With ActiveSheet.Range("p2")
Set myPict = ActiveSheet.Shapes("Picture18")
myPict.Top = .Top
myPict.Left = .Left - 50
myPict.Placement = xlMove
End With

How do i select an inserted image.
 

Mike.

It works great! and thanks for the tip about the space!

SpeeD

"Mike H" wrote:

Hi,

Try this

Note by default Excel wil put a space in Picture 18 and if your picture has
that then so must the code.

Dim myPict As Picture
With ActiveSheet.Range("P2")
Set myPict = .Parent.Pictures("Picture18")
myPict.Top = .Top
myPict.Left = .Left - 50
myPict.Placement = xlMoveAndSize
End With


Mike


"SpeeD" wrote:

Hi.

I need to select an allready inserted image and align it to a cell, But i
can´t make my code works.
What am i doing wrong???

Thansk in advance
SpeeD

Dim myPict As Picture
With ActiveSheet.Range("p2")
Set myPict = ActiveSheet.Shapes("Picture18")
myPict.Top = .Top
myPict.Left = .Left - 50
myPict.Placement = xlMove
End With

How do i select an inserted image.
 

Glad I could help

"SpeeD" wrote:

Mike.

It works great! and thanks for the tip about the space!

SpeeD

"Mike H" wrote:

Hi,

Try this

Note by default Excel wil put a space in Picture 18 and if your picture has
that then so must the code.

Dim myPict As Picture
With ActiveSheet.Range("P2")
Set myPict = .Parent.Pictures("Picture18")
myPict.Top = .Top
myPict.Left = .Left - 50
myPict.Placement = xlMoveAndSize
End With


Mike


"SpeeD" wrote:

Hi.

I need to select an allready inserted image and align it to a cell, But i
can´t make my code works.
What am i doing wrong???

Thansk in advance
SpeeD

Dim myPict As Picture
With ActiveSheet.Range("p2")
Set myPict = ActiveSheet.Shapes("Picture18")
myPict.Top = .Top
myPict.Left = .Left - 50
myPict.Placement = xlMove
End With