[ 初めての方へ | 一覧(最新更新順) | 全文検索 | 過去ログ ]
『マクロをリボンに登録し、別名で保存したらエラーで起動できない』(グミ好き)
こんにちわ。
動作確認済みのマクロを、マクロの実行ボタンから起動すればきちんと動くのですが
リボン、もしくはクイックアクセスツールバーに入れ、
ファイルを別名で保存して開き、そこにあるリボン(クイックアクセスツールバー)のボタンを押したら
マクロは存在しないか、セキュリティの設定により無効にされています。
のメッセージがでてしまいます。
以下のようなマクロ(すみません、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:08
https://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.