请高手帮调试下宏及图片显示问题

cjf0396

可能是宏有问题，每次打开都要求调试。
图片显示：主要就是在天气栏哪里，希望图片能随着文字的变化自动变化。

香川群子

可以对图片用定义名称时使用offset()公式来查找并反映图片的方式来显示。

首先生成各种需要的图片定义名称公式：
Sub Macro1()
    For i = 1 To 31
    For j = 1 To 3
    ActiveWorkbook.Names.Add Name:="pic" & Format(i, "00") & Choose(j, "a", "p", "n"), _
      RefersToR1C1:="=OFFSET(天气!R1C1,VLOOKUP(工程晴雨表!R" & 14 + j & "C" & 2 + i * 2 & ",天气,2,),1,1)"
    Next
    Next
End Sub

其次，复制图片并赋值。

这个明天做吧。

香川群子

Sub PicSet()
    For i = 1 To 31 '按日期
    For j = 1 To 3 '按上午、下午、晚上
   
    ActiveSheet.Shapes("pic").Copy '复制标准图片
   
    Cells(14 + j, 2 + i * 2).Select '定位到指定日期位置。
    ActiveSheet.Paste '粘贴标准图片
   
    '已复制图片中心对准放置在合并单元格中。
    With Selection
            .Top = ActiveCell.Top + (ActiveCell.MergeArea.Height - .Height) / 2 '上下对准
            .Left = ActiveCell.Left + (ActiveCell.MergeArea.Width - .Width) / 2 '左右对准
    End With
   
    '已复制图片按日期、上下晚重新命名 (格式如：p_01a)
    Selection.Name = "p_" & Format(i, "00") & Choose(j, "a", "p", "n")
   
    '定义含vlookup公式的offset方式名称，以便单元格内容更新后自动反映相应的图片内容。
    ActiveWorkbook.Names.Add Name:="pic" & Format(i, "00") & Choose(j, "a", "p", "n"), _
      RefersToR1C1:="=OFFSET(天气!R1C1,VLOOKUP(工程晴雨表!R" & 14 + j & "C" & 2 + i * 2 & ",天气,2,),1,1)"
   
    '把刚才已经复制、命名以及中央对准定位好的新图片，给予定义名称赋值即可。
  Selection.Formula = "pic" & Format(i, "00") & Choose(j, "a", "p", "n")
   
    Next
    Next
End Sub


以上。

请试用。

我自己已经试过了，但是现在无法上传附件。

cjf0396

麻烦楼上能上传下吗？

香川群子

原帖由 cjf0396 于 2011-2-21 08:13 发表
麻烦楼上能上传下吗？

你原来的代码有问题。具体我也没办法一一纠正。

看来楼主是抄了别人的代码。自己一点也不会。


上附件，你看着办吧。

cjf0396

确实是这样，感谢楼上！！

cjf0396

设置以后表格反应速度怎么会那么慢呢？