QQ登录

只需一步,快速开始

登录 | 注册 | 找回密码

三维网

 找回密码
 注册

QQ登录

只需一步,快速开始

展开

通知     

查看: 4563|回复: 22
收起左侧

[分享] 一个“直接”在Excel里面生成缩略图的办法(“远程”调用GetPreviewXXX)

[复制链接]
发表于 2017-7-30 12:16:06 | 显示全部楼层 |阅读模式 来自: 中国广东佛山
安装
主题分类用于问题归类:

马上注册,结识高手,享用更多资源,轻松玩转三维网社区。

您需要 登录 才可以下载或查看,没有帐号?注册

x
本帖最后由 bash 于 2017-8-5 10:06 编辑 ' B! f9 K; A0 E6 Y9 @. X& D

/ l8 K; a1 A* b% o# A4 l& K9 m7 a2017.08.02 更新
4 ?; m  `3 L) ~5 i' \: n$ R% `& A3 [8 ]5 V3 V
SWDM-API-201X.rar (56.01 KB, 下载次数: 168)

评分

参与人数 1三维币 +25 收起 理由
阿帕奇 + 25

查看全部评分

 楼主| 发表于 2017-7-30 12:34:22 | 显示全部楼层 来自: 中国广东佛山
本帖最后由 bash 于 2017-8-11 13:18 编辑 . M, d  q0 v/ C" \1 r1 j, h. v3 Z
4 J- C# j' X6 h6 W5 o% P
-
发表于 2017-7-30 13:07:21 | 显示全部楼层 来自: 中国浙江嘉兴
謝謝分享,下載試試了!
发表于 2017-7-30 13:49:18 | 显示全部楼层 来自: 中国广东东莞
这几天关于缩略图的帖子有点火

点评

因为有大师指导了方向  详情 回复 发表于 2017-7-31 15:03
发表于 2017-7-30 16:13:56 | 显示全部楼层 来自: 中国山东威海
EXCEL是只读文件?高级版本?
发表于 2017-7-31 13:38:23 | 显示全部楼层 来自: 中国广东肇庆
本帖最后由 keilei001 于 2017-7-31 13:39 编辑
9 f4 J+ g+ f: X) o  g/ K, _
# b+ A" E" x& @6 X1 t$ w多谢分享,是不是只有缩略图而不能提取其他属性呢?
发表于 2017-7-31 15:03:06 | 显示全部楼层 来自: 中国辽宁盘锦
qxzch 发表于 2017-7-30 13:49
* y9 `( ~1 p) [4 M0 `9 w% f- B这几天关于缩略图的帖子有点火

6 _! X( Y5 r  X因为有大师指导了方向
 楼主| 发表于 2017-7-31 19:12:42 | 显示全部楼层 来自: 中国广东佛山
本帖最后由 bash 于 2017-7-31 19:13 编辑
1 J% Q  Y# x- D+ {5 u3 j) ?
keilei001 发表于 2017-7-31 13:38  ^+ H8 U7 Q1 |- \( Q
多谢分享,是不是只有缩略图而不能提取其他属性呢?

! `' \7 v8 L- Q* q已在闷大的Excel上私自加上,但未经原作者同意,不敢私自公开。(涉及到LicenseKey)的问题。所以仅提供方法以参考。

点评

高手能否把licensekey删掉后把文件共享出来学习学习?  详情 回复 发表于 2017-8-1 19:34
发表于 2017-8-1 19:34:23 | 显示全部楼层 来自: 中国广东深圳
bash 发表于 2017-7-31 19:126 e0 L9 j1 S; P8 u2 e. O
已在闷大的Excel上私自加上,但未经原作者同意,不敢私自公开。(涉及到LicenseKey)的问题。所以仅提供 ...
1 R9 x! n  t5 d7 P
高手能否把licensekey删掉后把文件共享出来学习学习?
 楼主| 发表于 2017-8-2 10:22:42 | 显示全部楼层 来自: 中国广东佛山
NC@jiang@nan 发表于 2017-8-1 19:34
9 N$ k- O: D; H3 B  _高手能否把licensekey删掉后把文件共享出来学习学习?

- I0 t5 c  S& e. h0 |+ y您好高手,已更新!

点评

谢谢无私分享。 下载学习下,但一打开文件就报如图的错误,不知道是何原因?您这宏对我而言实在过于复杂,连排除都不知道怎么排除了,让高人见笑了。  详情 回复 发表于 2017-8-2 20:32
发表于 2017-8-2 13:07:53 | 显示全部楼层 来自: 中国江苏常州
好东西,值得拥有,谢谢楼主
发表于 2017-8-2 13:58:25 | 显示全部楼层 来自: 中国北京
显示:若要在64位系统上使用,则必须更新此项目中的代码。。。
发表于 2017-8-2 15:15:08 | 显示全部楼层 来自: 日本
大人發宏的帖子每次都下載,但是每次都不能用。。
5 {" o- e- d' _) v% \& I2 gvba裏面很多應該是中文的注解和引用,但是在他囯系統裏全都不可讀。。(VBA至今都不默認支持u8的嗎?)! e* e: ]+ l2 `  \/ f9 }* A( ~& W; W4 q

9 u1 ^* n# h& A) j- t這次打開沒有error,但是選擇文件以後什麽都沒有了。。
# {4 x7 f: I) j. }1 o- U列表也沒有更新。。。手動輸入,選擇顯示預覽也是一閃之後就什麽都沒有了。。
 楼主| 发表于 2017-8-2 16:19:14 | 显示全部楼层 来自: 中国广东佛山
本帖最后由 bash 于 2017-8-2 16:22 编辑 : l+ ^% Z, ^6 `
sihouko 发表于 2017-8-2 15:15
( x1 q4 {, _! l8 x5 u大人發宏的帖子每次都下載,但是每次都不能用。。
- V. U. e" [) u) K. V" {/ |3 }' svba裏面很多應該是中文的注解和引用,但是在他囯系統裏 ...

1 q1 g4 H) F9 Psihouko 大,您好,关于那所缩略图Excel问题。
3 c7 @  g2 Y6 q; A里面有使用说明的文本。7 x: @( E- v8 ?! X& n5 d* n: C4 R
如果乱码您看不到,那请往下看:  t' y& @- J0 ^0 X  o9 C
使用前请先确保LicenseKey有效,引用版本正确,及tempMacro_docGetThumbNail.swp放到位。0 G1 i1 A! u+ j

; b0 G; }9 T- R3 r5 o, `附件Excel仅在 简体:Win10 x64 + SW2017  , 日文:Win7 x64 + SW2017 ,测试通过。
+ ]" F2 K0 J! n: v: Z. `-----------------8 Z0 k4 \8 M( R0 U$ k+ }7 Z
1.开启预览图功能,请把tempMacro_docGetThumbNail.swp剪切到D:\8 W' v4 ]  B, t( b( q
3 y3 [+ ]& o8 P# q' [
如果要放到其他地方或者改变其名字,请修改相应修改Excel里面的"C1"单元格的内容!% X1 \3 D: U5 J' K( a
8 W* W/ I9 d5 ?$ [3 S
2.更换DMLicenseKey,并且在VBA里面勾选相应SW版本的引用(目前状态是SW2017 SP3的引用)。
) R) W" J+ ~, }
7 L: I7 m: r2 e, p3.声明,Excel的原始版本在网上所得,并经过一些“个性化”修改,并追加了预览图功能而已!
/ v* Z: d* [4 i# ?7 L8 T' S% O6 S-----------------
1 Z/ X8 d2 z, }若有其他问题,请加好友私聊!谢谢大大!
! W2 x5 G' R% c0 H1 Y1 R! C; \' Z! b: z# M* {, Y
0 a# \* C# z8 T, ~1 t  K; m1 a

+ q& p  H$ `& J# b/ W. i" _

点评

感謝大人關注,應該是按照下圖的樣子。。。  详情 回复 发表于 2017-8-2 17:38
发表于 2017-8-2 17:38:14 | 显示全部楼层 来自: 日本
本帖最后由 sihouko 于 2017-8-3 07:55 编辑
  d; h% Q/ V0 q6 i- q( Q( d) y6 M7 F5 i4 ?7 u/ K
重新申請lic后問題解決,感謝。
发表于 2017-8-2 20:32:36 | 显示全部楼层 来自: 中国广东深圳
bash 发表于 2017-8-2 10:22
  b& U* Y( |: u1 e- {9 x您好高手,已更新!
& _/ K! Q! G) w7 ]
谢谢无私分享。3 p6 v0 E; I% B6 j" v/ \+ Q
下载学习下,但一打开文件就报如图的错误,不知道是何原因?您这宏对我而言实在过于复杂,连排除都不知道怎么排除了,让高人见笑了。
QQ图片20170802202955.png

点评

64b的處理方法和32b有點不一樣。 最簡單的方法是。。。裝回office的32b。。 一勞永逸的方法是,在寫一段64b的代碼,然後用if來判斷32b和64b分別執行。 只修改為64b用的話,32b會出現error。。  详情 回复 发表于 2017-8-3 08:20
发表于 2017-8-3 08:20:34 | 显示全部楼层 来自: 日本
本帖最后由 sihouko 于 2017-8-3 08:24 编辑 6 a& d/ q+ {' O7 p
NC@jiang@nan 发表于 2017-8-2 20:325 }+ ~8 j0 F8 a
谢谢无私分享。% b7 k; r. s8 m( ^- h- \
下载学习下,但一打开文件就报如图的错误,不知道是何原因?您这宏对我而言实在过于复杂 ...

& c- V1 Q. |5 `+ R64b的處理方法和32b有點不一樣。
% u/ h" }1 E8 v7 q9 M最簡單的方法是。。。裝回office的32b。。
" c% ]% j4 }  t! E一勞永逸的方法是,在寫一段64b的代碼,然後用if來判斷32b和64b分別執行。8 D; D2 \: d( T; F% M- C2 X7 o
只修改為64b用的話,32b會出現error。。, f& f. ^1 G  a$ W' S# B+ D4 h
% F$ |( Y# v9 Y+ m8 G8 J, z- A
本機沒有64b,沒辦法幫忙測試,大人可以試一下把 As Long 改成As LongPtr 看是否可以運作。
) ~* h: U# b+ D+ @$ x3 e$ B) A

点评

回高手,因为我是64位的操作系统,所以装的64位的OFFICE。装32位的怕出现兼容性问题。 试了下,把 As Long 改成As LongPtr也还是一样的报错的。  详情 回复 发表于 2017-8-3 19:47
发表于 2017-8-3 19:47:35 | 显示全部楼层 来自: 中国广东深圳
sihouko 发表于 2017-8-3 08:20
9 o. X! V# [% Q! |- C64b的處理方法和32b有點不一樣。
# r+ Q, j; l. L7 H5 P% F最簡單的方法是。。。裝回office的32b。。) X. c% n) `. O' L
一勞永逸的方法是,在寫一 ...
; i6 v% U3 R6 v. H) j
回高手,因为我是64位的操作系统,所以装的64位的OFFICE。装32位的怕出现兼容性问题。3 c# z) G0 P) x: U2 T. I, H' f
试了下,把 As Long 改成As LongPtr也还是一样的报错的。
发表于 2019-3-8 09:26:23 | 显示全部楼层 来自: 中国广西桂林
报错,对象不支持该属性和方法,请楼主解决
发表于 2019-7-27 12:38:50 | 显示全部楼层 来自: 中国浙江湖州
谢谢无私分享
发表于 2019-8-5 15:54:33 | 显示全部楼层 来自: 中国上海
看看怎么样 下载了
发表于 2019-8-6 16:51:22 | 显示全部楼层 来自: 中国广东东莞
谢谢分享,学学!
发表于 2019-8-7 15:53:12 | 显示全部楼层 来自: 中国广东广州
下载了,不知咋用。
发表回复
您需要登录后才可以回帖 登录 | 注册

本版积分规则


Licensed Copyright © 2016-2020 http://www.3dportal.cn/ All Rights Reserved 京 ICP备13008828号

小黑屋|手机版|Archiver|三维网 ( 京ICP备2023026364号-1 )

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