1234

ExcelHome技术论坛

用户名  找回密码
 免费注册

QQ登录

只需一步,快速开始

快捷登录

帖子
EH技术汇-专业的职场技能充电站 妙哉!函数段子手趣味讲函数 Excel服务器-会Excel,做管理系统 效率神器,一键搞定繁琐工作
HR薪酬管理数字化实战 Excel 2021函数公式学习大典 Excel数据透视表实战秘技 打造核心竞争力的职场宝典
让更多数据处理,一键完成 数据工作者的案头书 免费直播课集锦 ExcelHome出品 - VBA代码宝免费下载
用ChatGPT与VBA一键搞定Excel WPS表格从入门到精通 Excel VBA经典代码实践指南
12
返回列表 发新帖
楼主: 大灰狼1976

[原创] 【春节杂货铺】一个userform有两个caption及其他

[复制链接]

TA的精华主题

TA的得分主题

 楼主| 发表于 2025-1-25 11:13 | 显示全部楼层
[广告] VBA代码宝 - VBA编程加强工具 · VBA代码随查随用  · 内置多项VBA编程加强工具       ★ 免费下载 ★      ★使用手册
本帖最后由 大灰狼1976 于 2025-1-25 12:40 编辑

15、用户窗体userform的长宽不等比缩放

    窗体的zoom属性可以设置缩放,但只能是等比缩放。要实现任意不等比缩放,只要导出窗体,修改UserForm1.frm的内容就行,该文件实际就是一个文本文件,修改里面的数字保存,再导入窗体就行。打开信任中心对对象模型的访问后,应该也可以直接代码处理,我没试过。
<UserForm1.frm文件的内容>

VERSION 5.00
Begin {C62A69F0-16DC-11CE-9E98-00AA00574A4F} UserForm1
   Caption         =   "UserForm1"
   ClientHeight    =   3015
   ClientLeft      =   120
   ClientTop       =   465
   ClientWidth     =   9120 '4560*2两倍拉宽
   OleObjectBlob   =   "UserForm1.frx":0000
   StartUpPosition =   1  '所有者中心
End
Attribute VB_Name = "UserForm1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False

Private Sub UserForm_Initialize()
ComboBox1.List = Array(1, 2, 3, 4)
End Sub


窗体长宽不等比缩放.png

TA的精华主题

TA的得分主题

 楼主| 发表于 2025-1-25 11:39 | 显示全部楼层
本帖最后由 大灰狼1976 于 2025-1-25 12:38 编辑

16、设置允许文本溢出形状
    形状(shape)添加的文字,有些格式设置是录制宏获取不到的,比如允许文本溢出形状,偶然所得,多次测试后成功,参考附件
文本溢出形状.png

设置允许文本溢出形状.zip

14.64 KB, 下载次数: 3

TA的精华主题

TA的得分主题

 楼主| 发表于 2025-1-25 12:43 | 显示全部楼层
[广告] Excel易用宝 - 提升Excel的操作效率 · Excel / WPS表格插件       ★免费下载 ★       ★ 使用帮助
17、设置形状的其他三个偏门
  1. Sub 复制形状()
  2. '复制形状,录制宏得到的是这个
  3.     Selection.Copy
  4.     ActiveSheet.Paste
  5.    
  6. '其实有简便方法
  7.     Selection.Duplicate
  8. End Sub

  9. Sub 形状格式刷()
  10. '形状格式刷,录制宏得到的是这个,其实你再运行一下试试是没有效果的
  11.     Selection.ShapeRange.PickUp
  12.     ActiveSheet.Shapes.Range(Array("Rectangle 3")).Select
  13.    
  14. '正确方法
  15.     Selection.ShapeRange.PickUp  '格式刷
  16.     Selection.ShapeRange.Apply   '应用到其他图形,这句录制宏是得不到的
  17. End Sub

  18. Sub 镜像形状() '只做镜像,不是备份
  19. '没有(?)这个手动设置,也就无法录制宏得到
  20. Selection.ShapeRange.Flip msoFlipVertical   'msoFlipHorizontal
  21. End Sub
复制代码

评分

1

查看全部评分

TA的精华主题

TA的得分主题

 楼主| 发表于 2025-1-25 13:16 | 显示全部楼层
[广告] Excel易用宝 - 提升Excel的操作效率 · Excel / WPS表格插件       ★免费下载 ★       ★ 使用帮助
18、获取所有合并单元格地址
    为什么写这个呢,因为大家分享的方法基本上都是遍历单元格来判断,很少看到find方法,防止有人不知道,就一起写了
  1. Sub test()
  2. Dim rng As Range, ads$
  3. Application.FindFormat.MergeCells = True
  4. Set rng = Cells.Find(What:="", SearchFormat:=True)
  5. If rng Is Nothing Then Exit Sub
  6. ads = rng.Address
  7. Do
  8.   Debug.Print rng.MergeArea.Address(0, 0)
  9.   Set rng = Cells.Find(What:="", After:=rng, SearchFormat:=True)
  10. Loop While rng.Address <> ads
  11. End Sub
复制代码

TA的精华主题

TA的得分主题

发表于 2025-1-25 14:52 | 显示全部楼层
[广告] VBA代码宝 - VBA编程加强工具 · VBA代码随查随用  · 内置多项VBA编程加强工具       ★ 免费下载 ★      ★使用手册
本帖最后由 morpheus126 于 2025-1-25 23:12 编辑
大灰狼1976 发表于 2025-1-25 10:28
13、批注框样式也可以自由设置,和shape相同,shape有的功能基本都有,以防有人不知道。

我想知道那根引导线可不可以控制连接图形的位置(默认是中心,可否连接到角),谢谢

TA的精华主题

TA的得分主题

 楼主| 发表于 2025-1-25 15:26 | 显示全部楼层
morpheus126 发表于 2025-1-25 14:52
我想知道那根引导线可不可以控制连接图形的位置(默认非中心,可否连接到角),谢谢

这个把我难住了,不知道哪个属性,我试试看吧
您需要登录后才可以回帖 登录 | 免费注册

本版积分规则

1234

手机版|关于我们|联系我们|ExcelHome

GMT+8, 2025-2-3 14:03 , Processed in 0.021888 second(s), 8 queries , Gzip On, MemCache On.

Powered by Discuz! X3.4

© 1999-2023 Wooffice Inc.

沪公网安备 31011702000001号 沪ICP备11019229号-2

本论坛言论纯属发表者个人意见,任何违反国家相关法律的言论,本站将协助国家相关部门追究发言者责任!     本站特聘法律顾问:李志群律师

快速回复 返回顶部 返回列表