单击表格中的图片放大显示再次单击或是单击其它图片复原

最新推荐文章于 2024-06-27 00:42:32 发布
最新推荐文章于 2024-06-27 00:42:32 发布
阅读量2.3k 收藏 1
点赞数 1
分类专栏： VBA 图片 文章标签： vba excel wps
版权声明：本文为博主原创文章，遵循 CC 4.0 BY-SA 版权协议，转载请附上原文出处链接和本声明。
本文链接：https://blog.csdn.net/w_dexu/article/details/107728057
版权
介绍如何在Excel表格中实现点击图片放大显示，再次点击或点击其他图片时复原的VBA实现方法。详细阐述了实现原理，包括遍历图片设置OnAction事件、图片状态记录以及调整图片放大比例等步骤。提供了样例文件供参考。
摘要由CSDN通过智能技术生成

单击表格中的图片放大显示再次单击或是单击其它图片复原

需求

当表格中需要插入多张图片后，如查图片太大，不利于排版，太小查看时又不方便浏览，如果可以实现按行插入图片，需要查看图片时，自动将图片放大若干倍显示，再次点击或是点击其它图片时，图片自动复原，会比较方便，实现了排版与浏览效果的兼得。下面介绍一下实现这一需求的基本原理。

表格中原始图片样子

在这里插入图片描述

单击图片后表格及图片的样子

在这里插入图片描述

实现的原理

一、表格打开进，遍历图片，将各个图片加上一个OnAction事件
二、编制图片的OnAction事件代码，将图片的大小和状态记录在图片的AlternativeText属性中，并且设置全局变量记录上一个触发事件的图片名称，单击某一图片时，判断图片状态，如果是放大的，就复原来原始尺寸，如果是原始尺寸，就变成放大状态，同时处理上一个图片，使其复原来原始状态
三、图片放大的位数可以在事件中设定，也可以做成变量供调整
四、图片的类型会因为插入图片的方法不同而不同，本文是先插入图形，再用图片填充图形，这样图片的Type为1,如果是直接插入的图片࿰

最低0.47元/天 解锁文章
w_dexu
关注
专栏目录
Excel插入图片实现单击放大或缩小
xueshanghon_L的专栏
08-03 6万+
Excel插入图片实现单击放大或缩小 一、打开Excel，Alt+F11打开VBA(VBA自行安装) 二、双击ThisWorkbook，输入VBA代码 Sheet1为的工作薄1 Private Sub Workbook_Open() Dim cName$ On Error Resume Next For Each a In Sheet1.Shapes If a.Type = 1 Or a.Type = 13 Then a.OnAction = "test"
点击图片放大全屏加载，再次点击图片/文档回到原来位置
M51921的博客
12-17 8985
导读：生命不息，折腾不止 　　第二次写文章，其实我一直都不明白为什么很多人喜欢写文章，现在我好想知道一点点了，学到的东西一旦过了一段时间，好像就忘了… 　　看来写文章，或许有这么个原因吧，担心有一天忘了。 　 回到正题： 　　这次主要是想到了一个点击图片全屏加载，想到就做，毕竟生命不息，折腾不止！　 　　本次主要用到了jQuery，可以用原生JS实现，但是需要封装的函数太多，不过这难不倒
通过单击WPS EXCEL 单元格显示不同的图片
m0_46659474的博客
03-27 1377
通过单击WPS EXCEL 单元格显示不同的图片 下面是实现功能的VBA程序 //P列单元格 是图片文件名 Dim range1, range2 As Range Dim str As String Private Sub Worksheet_SelectionChange(ByVal Target As Range) str = “ppp” & Target.Row Set range...
【不懂编程也没关系】Excel+VBA轻松实现点击工作表中图片放大效果!
最新发布
极客小俊
06-27 2596
Excel中也可以写代码, 你见过吗?
Excel单元格插入图片并实现单击放大或缩小功能（含VBA代码）
重点记录机器人和自动驾驶相关领域的技术，尤其是计算机视觉，视觉SLAM等，不仅有前言文献或必备算法的学习，也会有实际应用的点滴经验
09-05 2万+
文章目录0 引言1 提前准备VBA代码1.1 ThisWorkbook的代码：1.2 模块的代码：2 设置步骤2.1 VBA代码设置单元格2.2 插入图片到单元格2.3 以启用宏的方式保存图片 0 引言 今天有人问我Excel单元格插入图片并实现单（双）击放大的功能该怎么设置，百度和Google了一下，发现大多数是利用插入批注的方式，但不是很方便，后来看到有人用VBA代码实现了这个功能，更加方便和灵活，插入多个图片也没问题。 1 提前准备VBA代码 1.1 ThisWorkbook的代码： Private
点击放大图片、再次点击缩小
08-05
跟QQ查看图片一样、点击放大、再次点击缩小、只是没有相册功能、即所谓的左右滑动功能。
js实现点击图片放大，再次点击还原图片功能
weixin_46300114的博客
07-25 1866
写一个function根据原固定尺寸进行if-else判断是否展示原始大小。
EXCEL VBA 入门与实用例子
热门推荐
cnds123的专栏
06-22 6万+
VBA这个以前用过，放下很久了，最近因需要用Excel处理数据，用到了它，使用了其它一些方式，对比一下，感到VBA还是有些长处的。故将以前的学习笔记，重新整理了一下，发表到这里，供有需要的人借鉴。...............
POI Excel插入图片实现点击放大缩小
这个人很懒，没有简介
03-29 1622
POI插入图片并实现单击放大或缩小功能
Excel如何批量将图片按比例扩大？
ffcell2016的博客
03-11 2385
1.打开Excel表格，如下图想要将表格中的图片扩大1.5倍 2.首先我们点击【图片工具】 3.选择【图片大小位置】 ​ 4.将【图片比例】设置为1.5 ​ 5.最后点击【确定】即可完成 ​ 6.完成效果如下图 ...
Excel中 单击图片实现缩放功能
饭特稀 的专栏
07-16 1万+
1. 在插入的图片上右键-Assign Marco 2. New 3. Insert following code，注意Click() 可能会有变化，以实际为准。Option Explicit Dim fd As Boolean Sub Click() fd = fd Xor True With ActiveSheet.Shapes(Application.Caller).OLEFormat.O...
图片点击放大，再次点击回到原来状态（图片缩放）
weixin_33866037的博客
10-31 955
1.生成一个类，继承自UIView（ScalePictures），在这个类的.h中声明一个类方法： +(void)scanBigImageView:(UIImageView *)currentImageview alpha:(CGFloat)alpha; 2.在声名类的.m中开始写.h声明类方法的实现步骤。首先是浏览大图，然后恢复到原始状态。 （1）设置当前视图大小、图片等 （2）...
实现当点击一张图片的时候，图片会放大，再点击图片的背景的时候，图片会缩放回去
pilqc2009的专栏
06-03 2313
WZStatusPhotoView *iv = [[WZStatusPhotoView alloc] init];  //添加监听事件  UITapGestureRecognizer *tap = [[UITapGestureRecognizer alloc] initWithTarget:self action:@selector(imageTap:)];  [iv addGes
VC++技术内幕（第四版）笔记（第10章）
hbyufan的专栏
11-06 5066
第十章：位图1，Windows的位图实际上是一些和显示象素相对应的位阵列。2，GDI位图是设备相关位图，用MS基本类库（MFC）中的CBitmap类表示的，依赖具体的设备。3，DIB社设备无关位图，比GDI位图有许多编程优势。任何运行Windows的机器都可以处理DIB位图。DIB位图通常以.BMP文件形式保留在磁盘中，或作为资源保存在程序的EXE或DLL文件中。WIN32API只直接支持DIB格
Element(2) 表格中实现图片的单击放大、悬浮放大、长按放大
郑清
07-03 1万+
一、实现效果 如下图所示，打算实现一个在table表格中点击图片放大的效果【这里也可以是悬浮放大、长按放大等效果】 二、解决 采用element的popover 弹出框组件 可参考element官网给出的demo讲解： https://element.eleme.cn/#/zh-CN/component/popover 下面直接放代码吧~ <el-table-column align=...
评论 2
添加红包

请填写红包祝福语或标题

个

红包个数最小为10个

元

红包金额最低5元

当前余额3.43元 前往充值 >
需支付：10.00元
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付元
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明：

1.余额是钱包充值的虚拟货币，按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载，可以购买VIP、付费专栏及课程。

余额充值