Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちらをご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

11381 / 76735

←次へ　｜　前へ→


	【70892】Re:Excel.officeUIのカスタマイズ

美貴 - 12/1/13(金) 5:53 -


	引用なし

	パスワード

▼きぬあささん：

おはようございますー♪

うまくいかないです(>_<)

　With CreateObject("Msxml2.DOMDocument")
　
　　.async = False
　　If .Load(入力2officeUI) Then
　　　For Each n In .SelectNodes("mso:customUI/mso:ribbon/mso:tabs/mso:tab　_
　　　　　　& "/mso:group/mso:control/mso:button")
　　　　If InStr(n.getAttribute("idQ"), 開発ユーザ) Then
　　　　　s = n.getAttribute("idQ")
　　　　　s = Replace$(s, 開発ユーザ, ユーザ名)
　　　　　n.setAttribute "idQ", s
　　　　　s = n.getAttribute("onAction")
　　　　　s = Replace$(s, 開発ユーザ, ユーザ名)
　　　　　n.setAttribute "onAction", s
　　　　End If
　　　Next
　　　
　　　.Save 出力2officeUI
　　End If
　End With

これでNGでしたので、下記に書き換えると
今度は実行時エラーになりました。(>_<)

　　　For Each n In .SelectNodes("mso:customUI/mso:ribbon/mso:tabs/mso:tab id=""mso_c1.204896""" _
　　　　　　& "/mso:group id=""mso_c2.204896""/mso:control/mso:button")

どうしたらいいでしょうか(^_^;)
どうぞよろしくお願い致します。

8 hits

▼

【70865】Excel.officeUIのカスタマイズ 美貴 12/1/8(日) 21:22