Excel精英培训网

 找回密码
 注册
数据透视表40+个常用小技巧,让你一次学会!
查看: 4735|回复: 4

[已解决]放大、缩小图片

[复制链接]
发表于 2014-4-28 11:27 | 显示全部楼层 |阅读模式
放大、缩小图片
在图片上,点左键是放大图片,点右键是缩小图片

请老师们帮帮忙,谢谢大家了!

未命名.JPG

放大、缩小图片.rar (429.67 KB, 下载次数: 26)
发表于 2014-4-28 12:32 | 显示全部楼层    本楼为最佳答案   
  1. Private Sub 证照_MouseDown(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
  2.     With ActiveSheet.OLEObjects("证照")
  3.         Select Case Button
  4.             Case 1
  5.                 .Width = .Width * 2
  6.                 .Height = .Height * 2
  7.             Case 2
  8.                 .Width = .Width / 2
  9.                 .Height = .Height / 2

  10.         End Select
  11.     End With
  12. End Sub
复制代码
回复

使用道具 举报

发表于 2014-4-28 12:33 | 显示全部楼层
放大、缩小.rar (205.46 KB, 下载次数: 59)
回复

使用道具 举报

 楼主| 发表于 2014-4-28 17:02 | 显示全部楼层
hwc2ycy 发表于 2014-4-28 12:33

版主你好
如果  Case 1  改为:   Case 扩大

Case 2 改为:   Case 缩小

可以吗,谢谢版主了!

回复

使用道具 举报

发表于 2014-4-28 17:23 | 显示全部楼层
可以声明一个常量
const 扩大=1
const 缩i小=2

评分

参与人数 1 +9 收起 理由
yjwdjfqb + 9 感谢版主!

查看全部评分

回复

使用道具 举报

您需要登录后才可以回帖 登录 | 注册

本版积分规则

小黑屋|手机版|Archiver|Excel精英培训 ( 豫ICP备11015029号 )

GMT+8, 2024-3-29 17:36 , Processed in 0.800313 second(s), 13 queries , Gzip On, Yac On.

Powered by Discuz! X3.4

Copyright © 2001-2020, Tencent Cloud.

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