自行調整儲存格字體大小

317

大大們, 好,
小妹有一問題請教各前輩, 可有程式設定一按鈕, 當按下按鈕時工作表中儲各存格字體便自行調整至儲存格大小,
謝謝謝!!
aa.rar (6.77 KB)

下載次數: 3

2017-7-17 11:59

GBKEE

回復 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

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

hong912

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

317

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