[[20180705104058]] 『マクロをリボンに登録し、別名で保存したらエラー』(グミ好き) ページの最後に飛ぶ

[ 初めての方へ | 一覧(最新更新順) | 全文検索 | 過去ログ ]

 

『マクロをリボンに登録し、別名で保存したらエラーで起動できない』(グミ好き)

こんにちわ。
動作確認済みのマクロを、マクロの実行ボタンから起動すればきちんと動くのですが
リボン、もしくはクイックアクセスツールバーに入れ、
ファイルを別名で保存して開き、そこにあるリボン(クイックアクセスツールバー)のボタンを押したら

マクロは存在しないか、セキュリティの設定により無効にされています。
のメッセージがでてしまいます。

以下のようなマクロ(すみません、vbaですがエクセルでなくパワーポイントのコードです)をいれているのですが
原因を教えていただけませんでしょうか。


Option Explicit
Sub 長方形()

   Dim dlgOpen As FileDialog
   Dim picName As String
   Dim Sld As Slide
   Dim Shp As Shape
   Set dlgOpen = Application.FileDialog(Type:=msoFileDialogOpen)
   With dlgOpen
     .Filters.Add "イメージ", "*.tiff; *.bmp; *.png; *.gif; *.jpg; *.jpeg; *.wmf", 1
     If .Show <> -1 Then Exit Sub
     picName = .SelectedItems(1)
   End With
   Set Sld = ActiveWindow.Selection.SlideRange(1)
   Set Shp = Sld.Shapes.AddShape(msoShapeRectangle, 10, 10, 8.81 * 28.346, 6.61 * 28.346)
   With Shp
     .Fill.Transparency = 0#
     .Fill.Visible = msoTrue
     .Fill.ForeColor.RGB = RGB(255, 255, 255)
     .Fill.BackColor.SchemeColor = ppBackground
     .Fill.UserPicture picName
   End With
   With Sld.Shapes.Range(Shp.Name)
     .Distribute msoDistributeHorizontally, True
     .Distribute msoDistributeVertically, True
   End With
   End Sub

< 使用 アプリ:powerpoint2013、使用 OS:Windows7 >


 どうもmougのパワーポイントの掲示板にすでに質問していてまだ回答がついていないので関係ないEXCEL掲示板にも質問したようだ。

http://www.moug.net/faq/viewtopic.php?t=77273
(ねむねむ) 2018/07/05(木) 11:01


ねむねむさん、これはだめなのですか?
すみませんでした。
(グミ好き) 2018/07/05(木) 11:04

 何故エクセルの掲示板にパワーポイントの質問をしようと思うのだろうか?
 歯が痛いのに眼科へ行くようなものだが。
(ねむねむ) 2018/07/05(木) 11:08

リボンの登録と、マクロの関係で
offce繋がりできいてしまいました。
ありがとうございました。
答えいらないです。
(グミ好き) 2018/07/05(木) 11:48

ちまちま書いていたらねむねむさんが指摘してくださっていますが一応。
 http://www.excel.studio-kazu.jp/
 [エクセル質問掲示板] ではエクセルについて、わからないことの質問ができます
                          ^^^^^^^
                            ↑
                           ココに注目

パワーポイントVBAについて聞きたいのであれば、こちらなんてどうですか?
http://www.moug.net/faq/viewforum.php?f=7
(と、紹介しようと思ったら、もう投稿済みでしたか・・・・)

とりあえず、
http://www.moug.net/faq/viewtopic.php?t=77273
に投稿しておきました。
(もこな2) 2018/07/05(木) 12:36


コメント返信:

[ 一覧(最新更新順) ]


YukiWiki 1.6.7 Copyright (C) 2000,2001 by Hiroshi Yuki. Modified by kazu.