View Single Post
  #1   Report Post  
Posted to microsoft.public.excel.programming
[email protected] DonFlak@gmail.com is offline
external usenet poster
 
Posts: 41
Default Image pasting to incorrect cells or bad location within cells

Let me start by saying, I am by no means an expert. I have a workbook
that has the user answer two questions and based on the answers to
those questions, selcts predetermined data, in this case, a colum of 7
cells and 1 of 30 images to copy and past into a seperate workbook
that the macro opens after the questions have been answered.

A small part of the code is shown below:

ActiveCell.FormulaR1C1 = "1"
Range("B7").Select
ActiveCell.FormulaR1C1 = "0"
Range("B8").Select
ActiveCell.FormulaR1C1 = "0"
Sheets("Reports").Select
Range("A1").Select
Workbooks.Open Filename:="T:\FIN\NEW-TACS-PLAN-OT.xls",
UpdateLinks:=False
Windows("Report.xls").Activate
Sheets("Reference").Select
If Range("D3") = "1" Then
ActiveSheet.Shapes("Picture 1").Select
Selection.Copy
Windows("NEW-TACS-PLAN-OT.xls").Activate
Sheets("DISTRICT ROLL-UP").Select
Range("F29").Select
ActiveSheet.Paste
Sheets("FUNC 1").Select
Range("F29").Select
ActiveSheet.Paste

When this occurs, the image "Picture 1" or for that matter, any of the
30 images paste sometimes in the cell but not aligned as I would
like. For some reason, although the exact same code, 3 of the
variables cause the image to paste 1 cell to the right of the intended
destination. I have rechecked the cell destinations and they are
correct.

Does anyone have an idea how I can get the images to paste where I
need them to, aligned properly?