label中是否能產生格子線呢??

本帖最後由 sillykin 於 2018-11-16 23:58 編輯

能否在userform內label產生格子（跟圖表中的一樣）嗎??或者有高手提供個意見

圖.JPG (27.97 KB)

12.rar (34.58 KB)

樓主熱帖

Hsieh

超級版主 Rank: 8 Rank: 8

帖子: 4901
主題: 44
精華: 24
積分: 4916
點名: 254
作業系統: Windows 7
軟體版本: Office 20xx
閱讀權限: 150
性別: 男
來自: 台北
註冊時間: 2010-4-30
最後登錄: 2024-11-23

2023年全勤獎章 2022虎年全勤獎章 2021牛年全勤獎章 2020鼠年全勤獎章 2019 豬年全勤獎章 2018 狗年全勤獎章 2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱心公益勳章 2011兔年全勤獎章

6^#

發表於 2018-11-28 09:35 | 只看該作者

回復 5# sillykin

      With Me.Controls.Add("forms.Label.1")
      .Top = t
      .Width = 20
      .Height = ct.Height
      .Left = ct.Left + ct.Width + (j - 1) * 20
      .Name = k
      .Object.BorderStyle = 1
      .Object.TextAlign = 2 '置中
   End With

學海無涯_不恥下問

TOP

sillykin

中學生 Rank: 2

帖子: 169
主題: 41
精華: 0
積分: 219
點名: 0
作業系統: WIN10
軟體版本: office 2007
閱讀權限: 20
性別: 男
註冊時間: 2012-7-31
最後登錄: 2023-9-15

5^#

發表於 2018-11-27 18:28 | 只看該作者

回復 4# Hsieh

謝謝Hsieh版主
原來這樣的方式可行,但要文字置中,要如何處置
不是加入 .HorizontalAlignment = xlCenter '文字置中對齊
但還是執行會發生錯誤

TOP

Hsieh

超級版主 Rank: 8 Rank: 8

帖子: 4901
主題: 44
精華: 24
積分: 4916
點名: 254
作業系統: Windows 7
軟體版本: Office 20xx
閱讀權限: 150
性別: 男
來自: 台北
註冊時間: 2010-4-30
最後登錄: 2024-11-23

2023年全勤獎章 2022虎年全勤獎章 2021牛年全勤獎章 2020鼠年全勤獎章 2019 豬年全勤獎章 2018 狗年全勤獎章 2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱心公益勳章 2011兔年全勤獎章

4^#

發表於 2018-11-21 16:31 | 只看該作者