(已解決,感謝版主的指導)請問有關於註解放大圖片問題 - Excel程式區

[分享] (已解決,感謝版主的指導)請問有關於註解放大圖片問題

2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章 2011兔年全勤獎章

1^# 跳轉到 »

發表於 2012-2-20 14:00 | 顯示全部帖子

回復 1# cmo140497
工作表1 的事件程式碼

複製代碼

2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章 2011兔年全勤獎章

2^#

發表於 2012-2-21 08:37 | 顯示全部帖子

回復 7# cmo140497
ThisWorkbook模組的事件程式

Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
Dim Msg As Boolean, xlP As Shape
On Error Resume Next
Sh.Pictures("COPY").Delete
For Each xlP In Sh.Shapes
If xlP.TopLeftCell.Address = Target.Address Then
Msg = True
Exit For
End If
Next
If Msg = False Then Exit Sub
Selection.Copy
With ActiveSheet.Pictures.Paste
.Select
.Name = "Copy"
.Formula = Target.Address
.Top = Target.Offset(1, 2).Top
.Left = Target.Offset(, 2).Left
.Height = Target.Height * 5
.Width = Target.Height * 5
.ShapeRange.Line.Visible = msoTrue
.ShapeRange.Line.ForeColor.SchemeColor = 64
.ShapeRange.Line.BackColor.RGB = RGB(255, 255, 255)
End With
Target.Select
End Sub

複製代碼

靜思自在 : 君子立恆志，小人恆立志。