Can you advise on this code please

[ipbr21054]

Code in use is as shown.

The code below does this.
I copy a bar code image from the internet.
I then click on the command button called BAR CODE 1 which is the code shown below & i now see the bar code has been pasted in the cells A8:B10
This works fine apart from when i press the command button i actually see the bar code from say the clipboard appear in cell Y1 then its pasted into the cell A8:B10

I dont see anything in the code that specifies why it appears in Y1 but can we make it appear in a cell off the viewing page say cell AA1

Private Sub BarCode1_Click()
  Dim objPic As Picture
  
  ActiveSheet.Paste
  Set objPic = Selection
  With ActiveSheet.Range("A8:B10")
    If objPic.Width > .Width Then
      objPic.Width = .Width
      objPic.Left = .Left
    Else
      objPic.Left = .Left + (.Width - objPic.Width) / 2
    End If
    If objPic.Height > .Height Then
      objPic.Height = .Height
      objPic.Top = .Top
    Else
      objPic.Top = .Top + (.Height - objPic.Height) / 2
    End If
  End With
End Sub

 

[mole999]

do you have any worksheetchange events that could be triggered, as your paste will be changing the sheet it should go off and do them

or you could try application.enableevents = false above activesheet.paste, just set it to true by the end of the code

 

[ipbr21054]

There is no change code.
I also tried the enableevents but you can still see the image thats providing i did it correct

Private Sub BarCode1_Click()
  Dim objPic As Picture
  Application.EnableEvents = False
  ActiveSheet.Paste
  Set objPic = Selection
  With ActiveSheet.Range("A8:B10")
    If objPic.Width > .Width Then
      objPic.Width = .Width
      objPic.Left = .Left
    Else
      objPic.Left = .Left + (.Width - objPic.Width) / 2
    End If
    If objPic.Height > .Height Then
      objPic.Height = .Height
      objPic.Top = .Top
    Else
      objPic.Top = .Top + (.Height - objPic.Height) / 2
    End If
  End With
  Application.EnableEvents = True
End Sub

 

[mole999]

you've done what is suggested, not sure what else is going on

 

[Dan_W]

I feel like I must be missing something - isn't the reason because you haven't actually specified to where you want the clipboard pasted? ActiveSheet.Paste will just paste the contents of clipboard to wherever. You can specify where you want it pasted by selecting the cell - so if you want AA1, then put Range("AA1").Select before the line pasting it.

 

[ipbr21054]

Its pasting it to A8:B10

 

[ipbr21054]

I feel like I must be missing something - isn't the reason because you haven't actually specified to where you want the clipboard pasted? ActiveSheet.Paste will just paste the contents of clipboard to wherever. You can specify where you want it pasted by selecting the cell - so if you want AA1, then put Range("AA1").Select before the line pasting it.

You are correct.

After adding the code you mention for AA1 i am now off the page BUT by adding another line of code the same but with the cell B8 it brings it back.
So withing a split second all is done correctly.


Thanks for the help

 

[Dan_W]

No problem - glad that it's working.