下記のマクロを実行すると
BBB.Save のところで、実行時エラー 2147024893(8007003)が発生します。
「ショートカット"C:\Documents and Settings\ユーザー名\MyDocuments\Documents and Settings\All Users\スタート メニュー\プログラム\スタートアップ\拡張子無しのファイル名.lnk"を保存できません。」
ヘルプをみると、オ－トメーションエラー(Error440)となっています。
いろいろ調べましたが解りません。助けて下さい。
Sub 自動起動設定()
Dim AA, BB, CC, DD
Dim AAA, BBB
AA = ThisWorkbook.Path
CC = ThisWorkbook.Name
CC = Left(CC, Len(CC) - 4)
Set AAA = CreateObject("WScript.Shell")
DD = Left(AA, 2) & "Documents and Settings\All Users\スタート メニュー\プログラム\スタートアップ"
Set BBB = AAA.CreateShortcut(DD & "\" & CC & ".lnk")
BBB.targetPath = AA & "\" & ThisWorkbook.Name
BBB.Arguments = "/n,/e," & AA & "\"
BBB.WindowStyle = 1
BBB.WorkingDirectory = AA
BBB.Save
Set BBB = Nothing
Set AAA = Nothing
End Sub
Excel VBAでユーザーフォームを作成し、ファイルを起動時にSheetを非表示にしてユーザーフォームのみ表示させるようにしました。
そうしたところ、
(1)実行ボタンをクリックすると作成されるExcelファイルも表示されなくなる
(2)終了ボタンをクリックするとユーザーフォームを含むExcelファイルだけが閉じるのではなく、Excelのアプリ自体が終了してしまう(実行ボタンで作成したExcelファイルは表示したままにしたいのに閉じてしまう）
という現象になってしまいました。
某書籍を参考にしてコードを書いたのですが、なぜかこのようになってしまいました。
※「★」が書籍に指示があった箇所です。
＜ThisWorkbook＞
Private Sub Workbook_Open()
Application.Visible = False '★
myForm.Show '★
myForm.MultiPage1.Value = 0 'マルチページ構成のため
End Sub
Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
'========== [×]ボタン,[Alt]+[F4]キーを無効にする ==========
Dim msg As String, title As String
msg = "[画面を閉じて終了する]ボタンから終了してください。"
title = "終了方法"
Dim res As Integer
Select Case CloseMode
Case vbFormControlMenu
res = MsgBox(msg, vbOKOnly + vbCritical, title)
Cancel = True
End Select
ActiveWorkbook.Save '★
Application.Visible = True '★
Application.Quit '★
End Sub
実行したいのは、
(1)ユーザーフォームを含むExcelファイルを起動したときは、起動時にユーザーフォームだけが表示されるようにしたい
※ワークシートを非表示としたい
(2)「実行」ボタンをクリックすると、プログラムが実行されExcelファイルが新規で作成され表示される
※上記で記載した「★」の部分をコードをコメントアウトしてユーザーフォームから実行ボタンをクリックすると、プログラムが実行され正常にExcelファイルが新規で作成されることは確認済みです。
(3)ユーザーフォームが閉じても、ユーザーフォームのExcelファイルのみ閉じ、新規で作成されたExcelファイルは閉じない。
※実行ボタンをクリックして新規ファイルを作成しなかったり、他にExcelファイルがなかった場合は、Excelは終了する。
それとあわせて、
(1)を実行できた場合に、再度コードを編集する時はどうしたらExcelの画面が表示できるのか教えて下さい。
※それとも表示できないのでしょうか？
作成締め切りが迫っていて焦っています。
お知恵のある方どうかお力添え下さい。
よろしくお願い致します。
Excel VBAでユーザーフォームを作成し、ファイルを起動時にSheetを非表示にしてユーザーフォームのみ表示させるようにしました。
そうしたところ、
(1)実行ボタンをクリックすると作成されるExcelファイルも表示されなくなる
(2)終了ボタンをクリックするとユーザーフォームを含むExcelファイルだけが閉じるのではなく、Excelのアプリ自体が終了してしまう(実行ボタンで作成したExcelファイルは表示したままにしたいのに閉じてしまう）
という現象になってしまいました。
某書籍を参考にしてコードを書いたのですが、なぜかこのようになってしまいました。
※「★」が書籍に指示があった箇所です。
＜ThisWorkbook＞
Private Sub Workbook_Open()
Application.Visible = False '★
myForm.Show '★
myForm.MultiPage1.Value = 0 'マルチページ構成のため
End Sub
Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
'========== [×]ボタン,[Alt]+[F4]キーを無効にする ==========
Dim msg As String, title As String
msg = "[画面を閉じて終了する]ボタンから終了してください。"
title = "終了方法"
Dim res As Integer
Select Case CloseMode
Case vbFormControlMenu
res = MsgBox(msg, vbOKOnly + vbCritical, title)
Cancel = True
End Select
ActiveWorkbook.Save '★
Application.Visible = True '★
Application.Quit '★
End Sub
実行したいのは、
(1)ユーザーフォームを含むExcelファイルを起動したときは、起動時にユーザーフォームだけが表示されるようにしたい
※ワークシートを非表示としたい
(2)「実行」ボタンをクリックすると、プログラムが実行されExcelファイルが新規で作成され表示される
※上記で記載した「★」の部分をコードをコメントアウトしてユーザーフォームから実行ボタンをクリックすると、プログラムが実行され正常にExcelファイルが新規で作成されることは確認済みです。
(3)ユーザーフォームが閉じても、ユーザーフォームのExcelファイルのみ閉じ、新規で作成されたExcelファイルは閉じない。
※実行ボタンをクリックして新規ファイルを作成しなかったり、他にExcelファイルがなかった場合は、Excelは終了する。
それとあわせて、
(1)を実行できた場合に、再度コードを編集する時はどうしたらExcelの画面が表示できるのか教えて下さい。
※それとも表示できないのでしょうか？
作成締め切りが迫っていて焦っています。
お知恵のある方どうかお力添え下さい。
よろしくお願い致します。
Excel VBAでユーザーフォームを作成し、ファイルを起動時にSheetを非表示にしてユーザーフォームのみ表示させるようにしました。
そうしたところ、
(1)実行ボタンをクリックすると作成されるExcelファイルも表示されなくなる
(2)終了ボタンをクリックするとユーザーフォームを含むExcelファイルだけが閉じるのではなく、Excelのアプリ自体が終了してしまう(実行ボタンで作成したExcelファイルは表示したままにしたいのに閉じてしまう）
という現象になってしまいました。
某書籍を参考にしてコードを書いたのですが、なぜかこのようになってしまいました。
※「★」が書籍に指示があった箇所です。
＜ThisWorkbook＞
Private Sub Workbook_Open()
Application.Visible = False '★
myForm.Show '★
myForm.MultiPage1.Value = 0 'マルチページ構成のため
End Sub
Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
'========== [×]ボタン,[Alt]+[F4]キーを無効にする ==========
Dim msg As String, title As String
msg = "[画面を閉じて終了する]ボタンから終了してください。"
title = "終了方法"
Dim res As Integer
Select Case CloseMode
Case vbFormControlMenu
res = MsgBox(msg, vbOKOnly + vbCritical, title)
Cancel = True
End Select
ActiveWorkbook.Save '★
Application.Visible = True '★
Application.Quit '★
End Sub
実行したいのは、
(1)ユーザーフォームを含むExcelファイルを起動したときは、起動時にユーザーフォームだけが表示されるようにしたい
※ワークシートを非表示としたい
(2)「実行」ボタンをクリックすると、プログラムが実行されExcelファイルが新規で作成され表示される
※上記で記載した「★」の部分をコードをコメントアウトしてユーザーフォームから実行ボタンをクリックすると、プログラムが実行され正常にExcelファイルが新規で作成されることは確認済みです。
(3)ユーザーフォームが閉じても、ユーザーフォームのExcelファイルのみ閉じ、新規で作成されたExcelファイルは閉じない。
※実行ボタンをクリックして新規ファイルを作成しなかったり、他にExcelファイルがなかった場合は、Excelは終了する。
それとあわせて、
(1)を実行できた場合に、再度コードを編集する時はどうしたらExcelの画面が表示できるのか教えて下さい。
※それとも表示できないのでしょうか？
作成締め切りが迫っていて焦っています。
お知恵のある方どうかお力添え下さい。
よろしくお願い致します。
Excel VBAでユーザーフォームを作成し、ファイルを起動時にSheetを非表示にしてユーザーフォームのみ表示させるようにしました。
そうしたところ、
(1)実行ボタンをクリックすると作成されるExcelファイルも表示されなくなる
(2)終了ボタンをクリックするとユーザーフォームを含むExcelファイルだけが閉じるのではなく、Excelのアプリ自体が終了してしまう(実行ボタンで作成したExcelファイルは表示したままにしたいのに閉じてしまう）
という現象になってしまいました。
某書籍を参考にしてコードを書いたのですが、なぜかこのようになってしまいました。
※「★」が書籍に指示があった箇所です。
＜ThisWorkbook＞
Private Sub Workbook_Open()
Application.Visible = False '★
myForm.Show '★
myForm.MultiPage1.Value = 0 'マルチページ構成のため
End Sub
Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
'========== [×]ボタン,[Alt]+[F4]キーを無効にする ==========
Dim msg As String, title As String
msg = "[画面を閉じて終了する]ボタンから終了してください。"
title = "終了方法"
Dim res As Integer
Select Case CloseMode
Case vbFormControlMenu
res = MsgBox(msg, vbOKOnly + vbCritical, title)
Cancel = True
End Select
ActiveWorkbook.Save '★
Application.Visible = True '★
Application.Quit '★
End Sub
実行したいのは、
(1)ユーザーフォームを含むExcelファイルを起動したときは、起動時にユーザーフォームだけが表示されるようにしたい
※ワークシートを非表示としたい
(2)「実行」ボタンをクリックすると、プログラムが実行されExcelファイルが新規で作成され表示される
※上記で記載した「★」の部分をコードをコメントアウトしてユーザーフォームから実行ボタンをクリックすると、プログラムが実行され正常にExcelファイルが新規で作成されることは確認済みです。
(3)ユーザーフォームが閉じても、ユーザーフォームのExcelファイルのみ閉じ、新規で作成されたExcelファイルは閉じない。
※実行ボタンをクリックして新規ファイルを作成しなかったり、他にExcelファイルがなかった場合は、Excelは終了する。
それとあわせて、
(1)を実行できた場合に、再度コードを編集する時はどうしたらExcelの画面が表示できるのか教えて下さい。
※それとも表示できないのでしょうか？
作成締め切りが迫っていて焦っています。
お知恵のある方どうかお力添え下さい。
よろしくお願い致します。
Excel2010で以下のようにwindowsオブジェクトのcaption判定をしているのですが、
エクセルで表示される名前とcaptionの値が不一致になります。
wd.Captionの値をwatchしたところ、
wd.Caption：(GIP)エクセルシート・・・・.xls
wName ：[GIP]エクセルシート
と、”[]”が”（）”に変わってました。
エクセル内のウィンドウの左上で表示されるのは、[GIP]エクセルシート・・・.xlsと
表示されてるのですが、何故かcaptionの値だけ違っており、見つけることができません。
何か制約事項があるのでしょうか。
'検索ウィンドウ名
wName="[GIP]エクセルシート"
'ウィンドウ発見フラグ
wdflag = False
For Each wd In Windows
If InStr(wd.Caption, wName) > 0 Then
wbn = wd.Caption
wdflag = True
Exit For
End If
Next
If wdflag = False Then
MsgBox "ウィンドウがみつかりません。", vbCritical + vbOKOnly, "Not found!!!"
Exit Sub
End If
MultipageにそれぞれImagecontrolを張り付けて
エクセルで自動作成したマーカー付折れ線グラフを
表示させるマクロを書いてみたんですが
2Pageまでは、上手く動作するんですが3page目をクリックしても
全く反応しません。何がおかしいのかどなたかお分かりの方
ご教授下さい。
↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓
Private Sub MultiPage1_Change()
Application.ScreenUpdating = False
Dim chartrange As Range
Me.MultiPage1.Value = 0
ActiveSheet.Range("a8").CurrentRegion.Select
Set chartrange = Selection
Charts.Add
ActiveChart.ChartType = xlLineMarkers
ActiveChart.SetSourceData Source:=chartrange, PlotBy:=xlRows
ActiveChart.Location where:=xlLocationAsObject, Name:="記録"
Const graphimage2 As String = "C:\Users\user\Pictures\Graph.bmp"
If ActiveSheet.ChartObjects.Count = 0 Then Exit Sub
ActiveSheet.ChartObjects(1).Chart.Export graphimage2
If Len(Dir(graphimage2)) > 0 Then
With Image1
.PictureSizeMode = fmPictureSizeModeStretch
.PictureAlignment = fmPictureAlignmentCenter
.BorderStyle = fmBorderStyleNone
.Picture = LoadPicture(graphimage2)
End With
Kill graphimage2
End If
ActiveSheet.ChartObjects.Delete
Me.MultiPage1.Value = 1
ActiveSheet.Range("a11").CurrentRegion.Select
Set chartrange = Selection
Charts.Add
ActiveChart.ChartType = xlLineMarkers
ActiveChart.SetSourceData Source:=chartrange, PlotBy:=xlRows
ActiveChart.Location where:=xlLocationAsObject, Name:="記録"
Const graphimage3 As String = "C:\Users\user\Pictures\Graph.bmp"
If ActiveSheet.ChartObjects.Count = 0 Then Exit Sub
ActiveSheet.ChartObjects(1).Chart.Export graphimage2
If Len(Dir(graphimage3)) > 0 Then
With Image2
.PictureSizeMode = fmPictureSizeModeStretch
.PictureAlignment = fmPictureAlignmentCenter
.BorderStyle = fmBorderStyleNone
.Picture = LoadPicture(graphimage3)
End With
Kill graphimage3
ActiveSheet.ChartObjects.Delete
End If
Me.MultiPage1.Value = 2
ActiveSheet.Range("a14").CurrentRegion.Select
Set chartrange = Selection
Charts.Add
ActiveChart.ChartType = xlLineMarkers
ActiveChart.SetSourceData Source:=chartrange, PlotBy:=xlRows
ActiveChart.Location where:=xlLocationAsObject, Name:="記録"
Const graphimage4 As String = "C:\Users\user\Pictures\Graph.bmp"
If ActiveSheet.ChartObjects.Count = 0 Then Exit Sub
ActiveSheet.ChartObjects(1).Chart.Export graphimage4
If Len(Dir(graphimage4)) > 0 Then
With Image3
.PictureSizeMode = fmPictureSizeModeStretch
.PictureAlignment = fmpictueralignmentcenter
.BorderStyle = fmBorderStyleNone
.Picture = LoadPicture(grphimage4)
End With
Kill graphimage4
End If
ActiveSheet.ChartObjects.Delete
Application.ScreenUpdating = True
End Sub
エクセル2010です。
下記のようなコードでOutlookメールを作成したとき、たとえば
"ABC株式会社"
だけを赤字で太文字にするにはどう書けばよいのでしょうか？
Sub TEST001()
Dim oApp As Object
Dim objMAIL As Object
Dim strMOJI(1) As String
On Error Resume Next
Set oApp = GetObject(, "Outlook.Application")
On Error GoTo 0
If oApp Is Nothing Then
Set oApp = CreateObject("Outlook.Application")
End If
Set objMAIL = oApp.CreateItem(0)
strMOJI(0) = "こんにちは！" & vbCrLf & _
"色付けテストです。" & vbCrLf & _
"よろしくおねがいします。" & vbCrLf
strMOJI(1) = vbCrLf & _
"以上です。" & vbCrLf & _
"ABC株式会社" & vbCrLf & _
"emaxemax"
objMAIL.To = "xxxx@xxx.co.jp"
objMAIL.CC = "yyyy@xxx.co.jp"
objMAIL.Subject = "テスト"
objMAIL.Body = strMOJI(0) & strMOJI(1)
objMAIL.Display
End Sub
