目安箱 IV

目安箱投稿のルールはこちらをごらんください。
ご意見は電子メールで承っています。
「目安箱」は質問禁止です。技術的な質問はそれぞれの質問箱へどうぞ。

迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。

┃ ┃一覧表示 ┃ ┃ ┃ ┃

5 / 14 ﾍﾟｰｼﾞ

←次へ　｜　前へ→

【211】Unknown

dotarull - 07/10/21(日) 21:12 -


	引用なし

	パスワード

[*map/map_index_cnx2_13.txt||10||r||1|| @]

・ツリー全体表示

【210】ツールバーボタンに指定した引数を持たせて...

Jaka - 07/10/4(木) 13:09 -


	引用なし

	パスワード

引数は半角数字しか渡せません。

Sub 引数付きツールバー作成()
　　Dim 引数 As String, PtWd As String, ツールバー As CommandBar

　　For Each ツールバー In CommandBars
　　　　If ツールバー.Name = "マクロバー" Then
　　　　　ツールバー.Visible = True
　　　　　 MsgBox "ツールバーはすでにあります。", vbExclamation
　　　　　 Exit Sub
　　　　End If
　　Next

　　横位置 = 3000
　　縦位置 = 4000
　　PtWd = InputBox("ボタンに持たせる引数（数字のみ）を入力してください。", "引数入力", , XPos:=横位置, YPos:=縦位置)
　　If PtWd = "" Then
　　　 MsgBox "引数なし　終了"
　　　 Exit Sub
　　ElseIf Not IsNumeric(PasWd) Then
　　　 MsgBox "数字だけです。　終了"
　　　 Exit Sub
　　End If

　　Set バーバー = Application.CommandBars.Add(Name:="マクロバー", temporary:=True)
　　Application.CommandBars("マクロバー").Visible = True

　　引数 = PtWd

　　With バーバー
　　　　With .Controls.Add(Type:=msoControlButton, Before:=1)
　　　　　　 .Style = msoButtonIconAndCaption　'←ボタンとCaption　 →msoComboLabel
　　　　　　 .FaceId = 482
　　　　　　　　　　　　　　　　　　　　' ↓　半角数字だけ、全角も半角に直される。
　　　　　　 .OnAction = "'実行マクロ(" & 引数 & ")'"
　　　　　　
　　　　　　 .TooltipText = "実行ボタン"
　　　　　　 .Caption = "引数を持ったボタンバー"
　　　　End With
　　End With
End Su

Sub 実行マクロ(ByVal mmm As String)
　　MsgBox "持っている引数は " & mmm, vbDefaultButton2, "取得してある引数"
End Sub

Sub 削除()
　 On Error Resume Next
　 Application.CommandBars("マクロバー").Delete
End Sub

・ツリー全体表示

【209】Unknown

Vilyamnk - 07/10/1(月) 21:52 -


	引用なし

	パスワード

・ツリー全体表示

【208】Re:ちょっと気になる現象４

Jaka - 07/9/27(木) 11:05 -


	引用なし

	パスワード

VBProjectを使うのは、ＰＣによってはセキュリティ等でひっかかるから、
汎用的で無いですね。ボツ！！？？

・ツリー全体表示

【207】Re:ちょっと気になる現象４

Jaka - 07/9/27(木) 10:56 -


	引用なし

	パスワード

ichinose さん　こんにちは。
私も一案。

Sub main()
　　Dim sht As Worksheet
　　Set sht = Worksheets.Add
　　With ActiveWorkbook.VBProject
　　　 For Each VBC In .VBComponents
　　　 Next
　　End With
　　MsgBox sht.CodeName
End Sub

・ツリー全体表示

【206】Re:ちょっと気になる現象４

ichinose - 07/9/22(土) 20:31 -


	引用なし

	パスワード

>新規ブックの標準モジュールに
>
>'===============================================================
>Sub main()
>　　Dim sht As Worksheet
>　　Set sht = Worksheets.Add
>　　MsgBox sht.CodeName
>End Sub
>
>上記のコードですが、VBEを起動した状態で実行すると
>正常に追加されたシートのオブジェクト名を表示しますが、
>VBEを起動していない状態で実行すると追加されたシートのオブジェクト名が
>表示されません（Msgboxでは、何も表示されません）。

新しいバグの発見かな！！　と一瞬喜んだのですが（喜ぶことではなかった）、
確認したらいくつものサイトで紹介されていました。

シート名は、ユーザーが容易に変更出来てしまいますが、オブジェクト名までは
滅多に変更されないので簡単な作りのＶＢＡコードではCodenameを引用すると
便利な場合がありますよね。

解決方法も既にそれぞれのサイトで出ていましたが、
私も一案。

'=================================================================
Sub main()
　　Dim sht As Worksheet
　　Set sht = Worksheets.Add
　　MsgBox get_codename(sht)
End Sub
'=================================================================
Function get_codename(sht As Worksheet) As String
　　CommandBars("Control Toolbox").FindControl(ID:=222).Execute
　　SendKeys "%{F4}", True
　　get_codename = sht.CodeName
End Function

上記のmainは、ＶＢＥが起動されていない状態でも正しく
Codenameが表示されました。
EXCEL2002で確認。

Codenameプロパティは、

・ツリー全体表示

【205】ちょっと気になる現象４

ichinose - 07/9/22(土) 20:17 -


	引用なし

	パスワード

新規ブックの標準モジュールに

'===============================================================
Sub main()
　　Dim sht As Worksheet
　　Set sht = Worksheets.Add
　　MsgBox sht.CodeName
End Sub

上記のコードですが、VBEを起動した状態で実行すると
正常に追加されたシートのオブジェクト名を表示しますが、
VBEを起動していない状態で実行すると追加されたシートのオブジェクト名が
表示されません（Msgboxでは、何も表示されません）。

不思議ではないですか？

・ツリー全体表示

【204】AccessからExcelファイルを開く方法

初心者 - 07/9/20(木) 10:34 -


	引用なし

	パスワード

単純な質問ですが、
Accessのボタンをクリックして、
指定したExcelのファイルを開く方法を教えて下さい。
（例）
Accessのファイルと同一フォルダに住所録.xlsという
ファイルがあったとします。Accessのボタンをクリック
した時、自動的に住所録.xlsというExcelファイルを起動
させる方法を教えて下さい

・ツリー全体表示

【203】【Illustrator & VBA】選択されたデー...

ちくたく - 07/7/19(木) 18:19 -


	引用なし

	パスワード

こんにちは。
よく、作成したパスに、ラベルを貼ることをします。
いちいち、手でやるのは面倒なので、
少しでも楽になる方法として、
パスの名称をラベルとして、パスの左端にくっつけます。

Sub 選択されたデータにラベルを貼る()
　　Dim illApp As New Illustrator.Application
　　Dim myDoc As Illustrator.Document
　　Dim t As Illustrator.TextArtItem
　　Dim tmpObj As Variant
　　Dim i As Integer
　　
　　Set myDoc = illApp.ActiveDocument
　　tmpObj = myDoc.Selection
　　
　　For i = 0 To UBound(tmpObj)
　　　　Set t = myDoc.TextArtItems.Add
　　　　With t
　　　　　　.Contents = tmpObj(i).Name
　　　　　　.Translate tmpObj(i).Left, tmpObj(i).Top
　　　　End With
　　Next i
End Sub

・ツリー全体表示

【202】誤字修正

Jaka - 07/7/13(金) 15:20 -


	引用なし

	パスワード

>>　　　　　　　　　　　　 .OnAction = "Mcro4-1"
　　　　　　　　　　　　　　　　　　　 ↑　Mcro4_1 に変えてください。
>>　　　　　　　　　　 End With
>>　　　　　　　　　　 With .Add
>>　　　　　　　　　　　　 .Caption = "マクロ４-２"
>>　　　　　　　　　　　　 .OnAction = "Mcro4-2"
　　　　　　　　　　　　　　　　　　　 ↑　Mcro4_2 に変えてください。
>>　　　　　　　　　　 End With

・ツリー全体表示

【201】ボタンにパラメータを持たす、ボタン名（キ...

Jaka - 07/7/13(金) 15:16 -


	引用なし

	パスワード

メニューバーにボタンがこんな感じとして。

新メニュー
　│
　├ マクロ１
　│
　├ マクロ２
　│
　├ マクロ３▼　─ マクロ３-１
　│
　└ マクロ４▼　─ パラマクロ４-１　キャプション名取得は、この階層まで。
　　　　　　　　│
　　　　　　　　└ パラマクロ４-２
　　　　　　　　　　　　│　
　　　　　　　　　　　　│　↓　注）キャプション名取得は、この階層以下は対応させてません。
　　　　　　　　　　　　 └ マクロ５▼　─ パラマクロ５-１

Sub パラメータの場合()
With Application.CommandBars("Worksheet Menu Bar").Controls
　　With .Add(Type:=msoControlPopup, Temporary:=True)
　　　　.Caption = "新メニュー"
　　　　With .Controls
　　　　　　With .Add(Type:=msoControlButton)
　　　　　　　　.Caption = "マクロ１"
　　　　　　　　.OnAction = "Mcro1"
　　　　　　　　.Parameter = "パラマクロ１"
　　　　　　End With
　　　　　　With .Add
　　　　　　　　.Caption = "マクロ２"
　　　　　　　　.OnAction = "Mcro1"
　　　　　　　　.Parameter = "パラマクロ２"
　　　　　　End With
　　　　　　With .Add(Type:=msoControlPopup)
　　　　　　　　.BeginGroup = True
　　　　　　　　.Caption = "マクロ３"
　　　　　　　　With .Controls.Add
　　　　　　　　　　.Caption = "マクロ３-１"
　　　　　　　　　　.OnAction = "Mcro1"
　　　　　　　　　　.Parameter = "パラマクロ３-１"
　　　　　　　　End With
　　　　　　End With
　　　　　　With .Add(Type:=msoControlPopup)
　　　　　　　　.Caption = "マクロ４"
　　　　　　　　With .Controls
　　　　　　　　　　 With .Add
　　　　　　　　　　　　 .Caption = "マクロ４-１"
　　　　　　　　　　　　 .OnAction = "Mcro1"
　　　　　　　　　　　　 .Parameter = "パラマクロ４-１"
　　　　　　　　　　 End With
　　　　　　　　　　 With .Add
　　　　　　　　　　　　 .Caption = "マクロ４-２"
　　　　　　　　　　　　 .OnAction = "Mcro1"
　　　　　　　　　　　　 .Parameter = "パラマクロ４-２"
　　　　　　　　　　 End With
　　　　　　　　End With
　　　　　　End With
　　　　End With
　　End With
End With
End Sub

Sub Mcro1()
With Application.CommandBars.ActionControl
　　MsgBox "ボタンキャプション" & vbLf & .Caption & vbLf & vbLf & _
　　　　　 "パラメータ" & vbLf & .Parameter
End With
End Sub

・余談
自分で使っているメニューバーは、独自のアイコンを持たせたいためマクロでボタン等は作ってません。
マクロでオリジナルアイコンを反映させるには、どこかのシートにアイコン用図形を貼り付けておいて、それをコピー、貼り付けを行うので、エクセルに貼り付けとして先にコピー、エクセル起動、貼り付けの手順を踏むとコピーされたアイコンが張り付くといった情けない結果になるから.....。

で、どうやっているのかといえば、ユーザー設定で作っておいて、起動時にメニューバーに移動させる方法を取ってます。
至極たまに、起動時にエラーが発生する時がありますが、エクセルの不具合でボタンを移動後、コピー元のツールバーを消せなかった時におきます。そういう時は、手動でそのツールバーを消してやれば良いです。

・ツリー全体表示

【200】上のコードに不具合があります。

Jaka - 07/7/13(金) 15:12 -


	引用なし

	パスワード

↑の不具合プロシジャー名に「-」は使えません。 >　　　　　　　　　　 With .Add >　　　　　　　　　　　　 .Caption = "マクロ４-１" >　　　　　　　　　　　　 .OnAction = "Mcro4-1" 　　　　　　　　　　　　　　　　　　　 ↑　Mcro4_1 似変えてください。 >　　　　　　　　　　 End With >　　　　　　　　　　 With .Add >　　　　　　　　　　　　 .Caption = "マクロ４-２" >　　　　　　　　　　　　 .OnAction = "Mcro4-2" 　　　　　　　　　　　　　　　　　　　 ↑　Mcro4_2 似変えてください。 >　　　　　　　　　　 End With

・ツリー全体表示

【199】シート上アクティブXコントロールの場合

Jaka - 07/7/6(金) 9:28 -


	引用なし

	パスワード

シート上アクティブXコントロールとは、
表示　→　ツールバー　→　コントロールツールボックス
の各コントロール。

チェックボックスの場合

Worksheets("Sheet1").OLEObjects("CheckBox1").Object.Value = True

複数のチェックボックスの場合

For i = 1 To 10
　　Worksheets("Sheet1").OLEObjects("CheckBox" & i).Object.Value = True
Next

・ツリー全体表示

【198】ちょっと修正。

Jaka - 07/6/25(月) 15:29 -


	引用なし

	パスワード

すみません。

>With Selection
>　　 MsgBox "左上アドレス " & .Address & vbLf & _
　　　　　　　　↑
　　　2002と97で、返り値が違っているのか、
　　　単に私が度アホなのか、今となっては97が無いので解りませんが、
　　　2002の場合、左上アドレスでなく、選択範囲のアドレスが返るだけです。

・ツリー全体表示

【197】パスのところに、レイヤの名称を書く【Ill...

ちくたく - 07/6/5(火) 14:03 -


	引用なし

	パスワード

こんにちは。
標記、そのままです。

1番目のレイヤ (変数lNumの「値」番目) に含まれる、
レイヤの中にあるパスの上にレイヤの名称を書き出します。
個人的には、よく使うものです。

Sub パスのところに、レイヤの名称を書く()
　　Dim illApp As New Illustrator.Application
　　Dim myDoc As Illustrator.Document
　　Dim p As Illustrator.PathItem
　　Dim t As Illustrator.TextArtItem
　　Dim pos As Variant
　　Dim l As Illustrator.Layer
　　Dim lNum As Integer
　　
　　Set myDoc = illApp.ActiveDocument
　　lNum = 1
　　
　　For Each l In myDoc.Layers(lNum).Layers
　　　　For Each p In l.PathItems
　　　　　　Set t = myDoc.TextArtItems.Add
　　　　　　pos = p.Position
　　　　　　With t
　　　　　　　　.Contents = p.Layer.Name
　　　　　　　　.Translate pos(0), pos(1)
　　　　　　End With
　　　　Next p
　　Next l
End Sub

・ツリー全体表示

【196】activeX　エラー

ヨッシー - 07/5/10(木) 13:25 -


	引用なし

	パスワード

activeXがエラーをします。
rdoの参照設定はできてますが、オブジェクトが構成できてません。

Sub GetPlan()

　　Dim db As New odbc_db
　　Dim db1 As New odbc_db
　　Dim RPD As New odbc_sql
　　Dim strSQL As String
　　Dim y As Long
　　　　　　
　　'データベース接続
　　With db　　　　　　　　　*******←ここでエラーとなります**********
　　　　.Init_ODBC
　　　　.rUsr_ID = "hanb"
　　　　.rPwd_ID = "hanb"
　　　　.rDns = "hanb"
　　　　.rNoTran = False
　　　　If Not .Open_ODBC(False) Then
　　　　　　.Err_MsgOut
　　　　　　Exit Sub
　　　　End If
　　End With

・ツリー全体表示

【195】ここに質問してはだめでしたね。すみません...

ミクロマン - 07/4/22(日) 12:23 -


	引用なし

	パスワード

すみません間違えて書き込みしてしまいました。

・ツリー全体表示

【194】検索枠に前調べた内容の消去のしかた

ミクロマン - 07/4/22(日) 12:13 -


	引用なし

	パスワード

はじめまして。パソ初心者です。宜しくお願いします。ネットの検索枠をダブルクリックすると、今まで調べた言葉がダァーと連なって出てくるのです。それらを消そうと色々してますが消えません。一度調べた言葉を出ないような設定方法はあるのでしょうか？教えてください。お願いいたします。

・ツリー全体表示

【193】オープンパスを探したいとき

ちくたく

- 07/3/23(金) 14:57 -


	引用なし

	パスワード

こんにちは、IllustratorをVBAで操作します。
時々、パスを閉じたつもりが、閉じきれていなくて、
オープンパスになってしまっている場合があります。
それを、探すスクリプトです。

探すだけで閉じるわけではありません。
閉じようと思えば、アンカーを探せば閉じることができるはずです。
個人的には、手作業でやりたいことが多いので、
探して、選択するだけで満足してます。

Sub オープンパスを探す()
　　Dim illApp As New Illustrator.Application
　　Dim myDoc As Illustrator.Document
　　Dim p As PathItem
　　
　　Set myDoc = illApp.ActiveDocument
　　
　　For Each p In myDoc.PathItems
　　　　If p.Closed = False Then
　　　　　　p.Selected = True
　　　　　　Exit Sub
　　　　End If
　　Next p
　　MsgBox "パスの検索が終了しました｡"
End Sub

・ツリー全体表示

【192】Re:IllustratorをVBAで操作するには (基本...

ちくたく

- 07/3/16(金) 11:18 -


	引用なし

	パスワード

こんにちは。
しつこく、続けてみます。
フォルダの中に入ったIllustratorを印刷するスクリプトです。
こんなことしなくても、右クリックからできそうですが、
お遊びで。

Sub フォルダの中のaiファイルを全て印刷()

　　Dim illApp As New Illustrator.Application
　　Dim myDoc As Illustrator.Document
　　Dim myDir As String, fileName As String
　　Dim pOk As Integer
　　
　　'イラストレータファイルが入ったフォルダを指定。
　　myDir = "C:\tmp\"
　　
　　fileName = Dir(myDir & "*.ai", vbNormal)
　　
　　pOk = MsgBox("印刷設定はよろしいですか？", vbOKCancel, "印刷の確認")
　　If pOk = vbCancel Then Exit Sub
　　
　　Do While fileName <> ""　　　　　　　　 'フォルダの中をファイルがなくなるまで調べる。
　　　　illApp.Open (myDir & fileName)　　　'イラストレータのファイルを開いて、
　　　　Set myDoc = illApp.ActiveDocument　 '開かれたファイルを、
　　　　docRef.PrintOut (False)　　　　　　 '印刷。ダイアログは表示しない。
　　　　fileName = Dir　　　　　　　　　　　'そして、次のファイルを探す。
　　Loop
　　
　　illApp.Quit　　 'イラストレータを終了。

End Sub

・ツリー全体表示

┃ ┃一覧表示 ┃ ┃ ┃ ┃

5 / 14 ﾍﾟｰｼﾞ

←次へ　｜　前へ→

ページ：

┃

記事番号：

(SS)C-BOARD v3.8 is Free