VBA代碼來重置命令按鈕的大小，並將它們放置在特定的命名範圍

我使用的是Excel 2010 - 我有一些命名按鈕和切換按鈕，傾向於四處移動或設置爲高度和寬度爲0所以我想添加vba代碼來重置命令按鈕並切換按鈕大小並將它們定位到特定的命名範圍。VBA代碼來重置命令按鈕的大小，並將它們放置在特定的命名範圍

例如分別在範圍名稱cbrn1，cbrn2，cbrn3，cbrn4中設置名稱cb1，cb2，cb3，cb4，其寬度爲20，高度爲20，tb1，tb2，tb2，tb4設置爲範圍名稱爲tbrn1，tbrn2，tbrn3，tbrn4，寬度爲10，高度爲10.如何使用if then循環來做到這一點？

您的幫助將超過讚賞:-)

來源

2016-12-08 M Barber

我不知道exactally你的問題。但我只是想幫助。你正在嘗試在代碼中設置大小？您可以爲typeof（控件）創建一個默認的大小函數大小（20,20）如果我有一個小的代碼片段，我可能會更有幫助。你說，2010年，所以我假設.NET即使VBA通常是指pre-.net即VB 4,5,6

For each obj as Control in Me.Controls 
Select case typeof obj 
    if typeof (obj) is ComboBox then 
      obj.size = (20,20) 
    elseif typeof(obj) is ToggleButton then 
      obj.size = (0,0) 
    end if 
next

試圖用空格那裏使其更具可讀性。此代碼不準確。但如果我對問題的類型正確的話，你問這個「僞代碼」應該有助於它沒有格式化正確的希望，如果不是這樣的話。仍應該得到想法

來源

2016-12-08 20:42:12 TomFoolery

尋找Excel的VBA宏編碼。 –

謝謝，但我正在尋找將在Excel中工作的VBA宏編碼。這看起來像我認爲不可行的視覺基本編程。 –

VBA代碼來重置命令按鈕的大小，並將它們放置在特定的命名範圍

回答

相關問題