返回列表 上一主題 發帖

自行調整儲存格字體大小

GBKEE

帖子
5923 
主題
13 
精華
1 
積分
5986 
點名
0  
作業系統
win10 
軟體版本
Office 2010 
閱讀權限
150 
性別
男 
來自
台灣基隆 
註冊時間
2010-5-1 
最後登錄
2022-1-23 

2017 雞年全勤獎章2016猴年全勤獎章2015羊年全勤獎章2014馬年全勤獎章2013蛇年全勤獎章2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章2011兔年全勤獎章
1# 跳轉到 »
發表於 2017-7-17 14:55 | 顯示全部帖子
回復 1# 317
很久以前抓下的
  1. Private Sub Worksheet_SelectionChange(ByVal Target As Range)
  2.    On Error Resume Next
  3.     Shapes("放大鏡").Delete
  4.     If Application.CountA(Target) = 0 Then Exit Sub
  5.     PP = IIf(ActiveWindow.Zoom >= 100, 2, (11 - Val(Mid(ActiveWindow.Zoom, 1, 1))))
  6.     Target.CopyPicture Appearance:=xlScreen, Format:=xlBitmap
  7.     Application.ScreenUpdating = False
  8.     Paste
  9.     Shapes(Shapes.Count).Select
  10.     With Selection
  11.         .Name = "放大鏡"
  12.         .Formula = Target.Address
  13.         .ShapeRange.Line.Visible = msoTrue
  14.         .ShapeRange.Line.ForeColor.SchemeColor = 64
  15.         .ShapeRange.ScaleWidth PP, msoFalse, msoScaleFromTopLeft
  16.         .ShapeRange.ScaleHeight PP, msoFalse, msoScaleFromTopLeft
  17.     End With
  18.     Shapes("放大鏡").Cut
  19.     Paste Target.Offset(, Target.Columns.Count + 1)
  20.     Target.Select
  21.     Application.ScreenUpdating = True
  22. End Sub
複製代碼
感恩的心......(在麻辣家族討論區.用心學習會有進步的)
但資源無限,後援有限,  一天1元的贊助,人人有能力.

TOP

        靜思自在 : 自己害自己，莫過於亂發脾氣。
返回列表 上一主題