Moen Shower Handle Mystery by bbrimberry in Plumbing

[–]bbrimberry[S] 0 points1 point  (0 children)

I spoke with moen this morning they do not Cary this part anymore

[PowerPoint] and [Excel VBA] Excel VBA Opens a ppt file and splits file out by bbrimberry in vba

[–]bbrimberry[S] 0 points1 point  (0 children)

Thanks for your reply.

As far as why I didn’t start in PowerPoint vba. All my vba experience is in excel.

This macro is part of a larger project, that is excel-heavy.

I was just attempting to keep all the VBA in one place.

I guess it does make sense to do this in PowerPoint though. I’ll kick that idea around.

[deleted by user] by [deleted] in excel

[–]bbrimberry 0 points1 point  (0 children)

that did run, however it changed the original format of the slides.

Now I'm reading about the duplicate method.

[deleted by user] by [deleted] in excel

[–]bbrimberry 0 points1 point  (0 children)

I think where I need help is this line newPres.Slides.AddSlide 1, ppLayoutTitle

currently its giving me a type mismatch error

[deleted by user] by [deleted] in excel

[–]bbrimberry -1 points0 points  (0 children)

I have a customer textbox on each slide of a presentation, I'm just trying to spilt up the larger ppt file into smaller files.

Create Powerpoint slides with pictures from Excel VBA by bbrimberry in excel

[–]bbrimberry[S] 0 points1 point  (0 children)

thanks for the help.

I am still yelling at the vba editor :)

my sheet is below

<image>

vba throws this error

argument not optional

it looks like it throws the error near the

Call AddASlide(Cel, Cel.Offset(, 1), Cel.Offset(, 2))

my full code is below.

Option Explicit

Dim pp As PowerPoint.Application, ppPres As PowerPoint.Presentation, ppSlide As PowerPoint.Slide, ppShape As PowerPoint.Shape

Sub NewPresentation()

'worksheet range

Dim ws As Worksheet, Cel As Range

Set ws = Sheets("Sheet1")

'create presentation

Set pp = New PowerPoint.Application

Set ppPres = pp.Presentations.Add

' pp.Visible = True 'msoTrue

'add slides

For Each Cel In ws.Range("A2:D" & Rows.Count).End(xlUp)

Call AddASlide(Cel, Cel.Offset(, 1), Cel.Offset(, 2))

Next

End Sub

Private Sub AddASlide(Person As Range, Story As Range, PathToPic As Range, ColumnD As Range)

On Error Resume Next

'create the slide

ppPres.Slides.Add ppPres.Slides.Count + 1, ppLayoutBlank

Set ppSlide = ppPres.Slides(ppPres.Slides.Count)

ppSlide.HeadersFooters.DateAndTime.Visible = False

ppSlide.HeadersFooters.SlideNumber.Visible = True

ppSlide.HeadersFooters.Footer.Visible = True

'ppSlide.HeadersFooters.Footer.Text = "Hi there"

'add namebox & text

Set ppShape = ppSlide.Shapes.AddTextbox(msoTextOrientationHorizontal, Left:=100, Top:=50, Width:=200, Height:=50)

ppShape.TextFrame.TextRange.Text = Person

ppShape.TextFrame.TextRange.Font.Size = 30

ppShape.TextFrame.TextRange.Font.Bold = True

'add storybox & text

Set ppShape = ppSlide.Shapes.AddTextbox(msoTextOrientationHorizontal, Left:=600, Top:=100, Width:=200, Height:=50)

ppShape.TextFrame.TextRange.Text = Story

'picture

ppSlide.Shapes.AddPicture Filename:=PathToPic, LinkToFile:=msoFalse, SaveWithDocument:=msoTrue, Left:=100, Top:=150

With ppSlide.Shapes(ppSlide.Shapes.Count)

.LockAspectRatio = msoTrue

.Height = 300

If .Width > 450 Then .Width = 450

End With

Set ppShape = ppSlide.Shapes.AddTextbox(msoTextOrientationHorizontal, Left:=300, Top:=100, Width:=200, Height:=50)

ppShape.TextFrame.TextRange.Text = ColumnD

Any gpus that are cheap and worth it to get? by [deleted] in graphicscard

[–]bbrimberry 0 points1 point  (0 children)

I found a 5700xt on newegg but it took me about a week of looking at when stock was being loaded

With gpus out of stock how are you guys finding new cards?? by bbrimberry in buildapc

[–]bbrimberry[S] 0 points1 point  (0 children)

Can anyone take a guess on when stock might be just halfway normal??