マクロで表示画像をクリックしてViewerで表示する

スプレッドシート (Calc) について
返信する
hannya
記事: 3
登録日時: 5月 31, 2010, 9:41 am

マクロで表示画像をクリックしてViewerで表示する

投稿記事 by hannya »

WindowsXp CALC 3.2.0
Excel マクロを使い、Insert()画像をクリックするとViewerで表示するようになっているExcelを 本ソフトCALCで開くと表内の画像表示はします。しかし Viewerでの表示はしません。
どのようにしたら、Calcでも表示できるのでしょうか?
以下がCalcでのマクロ編集で表示された内容です
Sub test()では .RunでのViewerで表示する と、HyperLinkによるIEで表示するの2つが記載されている

Rem Attribute VBA_ModuleType=VBAModule
Sub Module1
Rem Option Explicit '変数の宣言を強制する
Rem '次行の宣言は Call mymsgbox で 常時表示メッセージ用のUserForm1を表示するため
Rem Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
Rem
Rem Private obj As Shape 'FreeFormLineで 最後描線の両端を誤って変更したとき->
Rem Private st As Variant '->check_locate()で 自動的に復元してくれる->
Rem Private ed As Variant '->複数描線のときは最後のみ
Rem Sub test()
Rem With CreateObject("Wscript.Shell")
Rem .Run """D:\My Documents2\HomeWorks\家系譜\nenpyou-hyou.JPG"""
Rem
Rem
Rem
Rem ActiveSheet.Pictures.Insert( _
Rem "D:\My Documents2\HomeWorks\家系譜\長田家年表系譜図\Nagata-Kamon.JPG").Select
Rem ActiveSheet.Hyperlinks.Add Anchor:=Selection.ShapeRange.Item(1), Address:= _
Rem "D:\My Documents2\HomeWorks\家系譜\長田家年表系譜図\Nagata-Kamon.JPG"
Rem
Rem End With
Rem
Rem
Rem End Sub
なお、マニュアルで 画像にHyperLinkする方法も 挿入のHyperLinkではあるセルになって、画像自体にならない。
では よろしく 助言ください
Openoffice3.2.0 on Windows XP
返信する

“Calc”に戻る