Board logo

標題: 自行調整儲存格字體大小 [打印本頁]
作者: 317    時間: 2017-7-17 12:00     標題: 自行調整儲存格字體大小

大大們, 好,
小妹有一問題請教各前輩, 可有程式設定一按鈕, 當按下按鈕時工作表中儲各存格字體便自行調整至儲存格大小,
謝謝謝!!
[attach]27486[/attach]
作者: GBKEE    時間: 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
複製代碼
作者: 317    時間: 2017-7-17 15:46

回復 2# GBKEE
GBKEE 版大, 午安, 感謝回應
小妹要的是工作表中儲存格各有大小或合併, 而字體要遷就儲存格大小, 每次填上後, 都自工具列調整字體大小, 以便符合儲存格,
可否有程式當我填上字體, 按下執行巨集, 字體便自行調大調小, 做到符合儲存格大小,
感謝大大回應,
謝謝謝!
作者: hong912    時間: 2017-7-26 11:51

回復 3# 317
無須程式，只須選定需要變更儲存格或整張工作表，按右健儲存格格式，對齊方式，勾選文字控制，縮小字型以適合欄寛，完成，當填上文字，文字超出儲存或字體大於儲存格便自行縮小。
作者: 317    時間: 2017-7-26 17:31

回復 4# hong912
已試用，感謝回應。



歡迎光臨 麻辣家族討論版版 (http://forum.twbts.com/)