罗刚君（罗刚君个人简介）

今天给各位分享罗刚君的知识，其中也会对罗刚君个人简介进行解释，如果能碰巧解决你现在面临的问题，别忘了关注本站，现在开始吧！

怎么运用VBA在EXCEL表中编码，进行制表？

Private Declare Function OpenClipboard Lib "User32" (ByVal hWnd As Long) As Long

Private Declare Function CloseClipboard Lib "User32" () As Long

Private Declare Function GetClipboardData Lib "User32" (ByVal uFormat As Long) As Long

Private Declare Function CopyEnhMetaFileA Lib "Gdi32" (ByVal hemfSrc As Long, ByVal lpszFile As String) As Long

Private Declare Function DeleteEnhMetaFile Lib "Gdi32" (ByVal hdc As Long) As Long

Sub 图片批注()

'*******************************************

'时间：2010-11-02

'作者：罗刚君 整理：bengdeng

'功能：在当前单元格插入图片批注

'说明：1、如果选择的是单元格区域，则把单元格区域的内容做为批注的图片

' 2、如果选择的是图片，则把此图片做为成批注的图片

'发布：

'*******************************************

Dim RngAddress As String, Files As String, Rng As Range, Widths As Integer, heights As Integer

RngAddress = ActiveCell.Address: Files = "C:\pz.BMP" '记录活动单元格地址和临时文件地址

If TypeName(Selection) = "Range" Then '如果选择单元格

On Error Resume Next

star:

Set Rng = Application.InputBox("请选择区域", "区域", RngAddress, Type:=8) '选择一个区域做批批注的引用源

If Err 0 Then Err.Clear: GoTo star '单击取消则重新提示选择区域

Application.ScreenUpdating = False

Range(Rng.Address).CopyPicture '复制对象

ActiveSheet.Paste '粘贴

Set Shp = ActiveSheet.Shapes(ActiveSheet.Shapes.Count)

Widths = Shp.Width: heights = Shp.Height '获取图片高度与宽度

Selection.Delete '删除临时图片

ElseIf TypeName(Selection) = "Picture" Then '如果选择了图片

Application.ScreenUpdating = False

Selection.CopyPicture '复制为图片

Set Shp = ActiveSheet.Shapes(Selection.Name)

Widths = Shp.Width: heights = Shp.Height '记录高度与宽度

Else

Exit Sub

End If

OpenClipboard 0 '打开剪贴板

DeleteEnhMetaFile CopyEnhMetaFileA(GetClipboardData(14), Files) '导出剪贴板中的图片

CloseClipboard '关闭

Application.CutCopyMode = False

Range(RngAddress).Select '激活单元格

Range(RngAddress).ClearComments '清除批注

With Range(RngAddress).AddComment.Shape '清加批注

.Width = Widths '指定宽度

.Height = heights '指定高度

.Fill.UserPicture Files '填充图片

End With

Kill Files '清除临时文件

Application.ScreenUpdating = True

Set Shp = Nothing

End Sub转载请注明:本文来自:Excel吧 () 详细出处参考：

Excel-VBA程序开发自学宝典（罗刚君）

哥们，你太舍得了，赞一个吧。给你点建议，如果你是熟悉的呢，看罗刚君的书没错，理解一下人家的算法，是怎么实现的呢。如果你是初学呢，不如好好的跟一位师傅学习一下，理解一下编程的思想再逐步深入，本人不才，可以共同探讨！

excel插件e灵是免费的吗

罗刚君E灵(Excel增强插件) v14.3免费版。

Excel辅助工具《E灵》2.0Excel辅助工具《E灵2.0》是大型的Excel插件，用于强化Excel的功能，提升制表的速度。它包括合并工具、财务工具、图片工具、重复值工具、文件处理工具、打印工具、一键录入公式等等多种类型的工具集合，适用于各行业的公文员。

罗刚君的介绍就聊到这里吧，感谢你花时间阅读本站内容，更多关于罗刚君个人简介、罗刚君的信息别忘了在本站进行查找喔。